if (interactive()) {
library(shiny)
library(shiny.semantic)
ui <- function() {
shinyUI(
semanticPage(
title = "Checkbox example",
form(
multiple_checkbox(
"simple_checkbox", "Letters:", LETTERS[1:5], selected = c("A", "C"), type = "slider"
)
),
p("Selected letter:"),
textOutput("selected_letter"),
shiny.semantic::actionButton("simple_button", "Update input to D")
)
)
}
server <- shinyServer(function(input, output, session) {
output$selected_letter <- renderText(paste(input[["simple_checkbox"]], collapse = ", "))
observeEvent(input$simple_button, {
update_multiple_checkbox(session, "simple_checkbox", selected = "D")
})
})
shinyApp(ui = ui(), server = server)
}
Run the code above in your browser using DataLab