Update content about shinywidgets HOT 5 CLOSED

library(shiny)
library(shinyWidgets)
ui <- fluidPage(
  tags$h2("dropdown update test"),
  fluidRow(
    column(
      width = 6,
      dropdownButton(
        uiOutput(outputId = "params"),
        icon = icon("sliders")
      ),
      verbatimTextOutput(outputId = "res")
    ),
    column(
      width = 6,
      checkboxInput(inputId = "update", label = "update")
    )
  )
)

server <- function(input, output, session) {
  
  output$params <- renderUI({
    checkboxInput(inputId = "my_cb", label = "a checkbox", value = FALSE)
  })
  outputOptions(x = output, name = "params", suspendWhenHidden = FALSE)
  
  observeEvent(input$update, {
    updateCheckboxInput(session = session, inputId = "my_cb", value = input$update)
  }, ignoreInit = TRUE)
  
}

shinyApp(ui, server)