# NOT RUN {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h1("Pretty checkbox update value"),
br(),
prettyCheckbox(
inputId = "checkbox1",
label = "Update me!",
shape = "curve",
thick = TRUE,
outline = TRUE
),
verbatimTextOutput(outputId = "res1"),
radioButtons(
inputId = "update",
label = "Value to set:",
choices = c("FALSE", "TRUE")
)
)
server <- function(input, output, session) {
output$res1 <- renderPrint(input$checkbox1)
observeEvent(input$update, {
updatePrettyCheckbox(
session = session,
inputId = "checkbox1",
value = as.logical(input$update)
)
})
}
if (interactive())
shinyApp(ui, server)
# }
Run the code above in your browser using DataLab