# NOT RUN {
## Only run examples in interactive R sessions
if (interactive()) {
library(shiny)
hands <- paste0("hand-point-", c("up", "right", "down", "left"))
shinyApp(
ui = fluidPage(
fluidRow(column(12,
icon_state_button("sort", c("sort", "sort-up", "sort-down")),
icon_state_button("hands", hands, 1),
icon_state_button("mood", c("smile", "meh", "frown"), "smile"),
br(), actionButton("makeStars", "I like stars")
))
),
server = function(input, output, session) {
observeEvent(input$makeStars, update_icon_state_button(
session, "mood", list(star = dq_icon("star"), dq_icon("star-half"),
dq_icon("star-half", style = "far"), dq_icon("star", style = "far")
), value = "star"
))
}
)
}
# }
Run the code above in your browser using DataLab