examples/rating/app.R

In Appsilon/shiny.semantic: Semantic UI Support for Shiny

library(shiny)
library(shiny.semantic)

ui <- function() {
  shinyUI(
    semanticPage(
      title = "Rating example",
      rating_input("rating", "How much do you like this example?",
             icon = "heart", max = 8, color = "green", size = "huge"),
      p("Your rate:"),
      textOutput("your_rate"),
      button("update", "Update rate")
    )
  )
}

server <- shinyServer(function(input, output, session) {
  output$your_rate <- renderText(input[["rating"]])

  observeEvent(input$update, {
    update_rating_input(session, "rating", "New label", 2)
  }, ignoreInit = TRUE)
})

shinyApp(ui = ui(), server = server)