## Not run:
# shinyServer(function(input, output, session) {
#
# observe({
# # We'll use the input$controller variable multiple times, so save it as x
# # for convenience.
# x <- input$controller
#
# # Create a list of new options, where the name of the items is something
# # like 'option label x 1', and the values are 'option-x-1'.
# cb_options <- list()
# cb_options[[sprintf("option label %d 1", x)]] <- sprintf("option-%d-1", x)
# cb_options[[sprintf("option label %d 2", x)]] <- sprintf("option-%d-2", x)
#
# # Change values for input$inCheckboxGroup
# updateCheckboxGroupInput(session, "inCheckboxGroup", choices = cb_options)
#
# # Can also set the label and select items
# updateCheckboxGroupInput(session, "inCheckboxGroup2",
# label = paste("checkboxgroup label", x),
# choices = cb_options,
# selected = sprintf("option-%d-2", x)
# )
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab