Last chance! 50% off unlimited learning
Sale ends in
Change the value of a AwesomeCheckboxGroup input on the client
updateAwesomeCheckboxGroup(session, inputId, label = NULL, choices = NULL,
selected = NULL, inline = FALSE, status = "primary")
The session object passed to function given to shinyServer.
The id of the input object.
Input label.
List of values to show checkboxes for.
The values that should be initially selected, if any.
If TRUE, render the choices inline (i.e. horizontally)
Color of the buttons.
# NOT RUN {
if (interactive()) {
library("shiny")
library("shinyWidgets")
ui <- fluidPage(
awesomeCheckboxGroup(
inputId = "somevalue",
choices = c("A", "B", "C"),
label = "My label"
),
verbatimTextOutput(outputId = "res"),
actionButton(inputId = "updatechoices", label = "Random choices"),
textInput(inputId = "updatelabel", label = "Update label")
)
server <- function(input, output, session) {
output$res <- renderPrint({
input$somevalue
})
observeEvent(input$updatechoices, {
updateAwesomeCheckboxGroup(
session = session, inputId = "somevalue",
choices = sample(letters, sample(2:6))
)
})
observeEvent(input$updatelabel, {
updateAwesomeCheckboxGroup(
session = session, inputId = "somevalue",
label = input$updatelabel
)
}, ignoreInit = TRUE)
}
shinyApp(ui = ui, server = server)
}
# }
Run the code above in your browser using DataLab