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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.