shinyRatings

Have you ever needed a way to review things in shiny ? Look no further, as shinyRatings package is built to make this process very easy. It is also possible to give 1/2 stars.

library(shiny)
library(shinyRatings)

ui <- fluidPage(
  shinyRatings('star1', no_of_stars = 7, default = 5), 
  textOutput('text1'), 
  shinyRatings('star2',default = 3, disabled = TRUE), 
  textOutput('text2'), 
)

server <- function(input, output, session) {
  output$text1 <- renderText({paste("No. of stars : ", input$star1)})
  output$text2 <- renderText({paste("No. of stars : ", input$star2)})
}

shinyApp(ui, server)

Output

---

Installation

shinyRatings is available on CRAN and can be installed using -

install.packages("shinyRatings")

To install the package from GitHub, you can use -

devtools::install_github('shahronak47/shinyRatings')