## 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
#
# r_options <- list()
# r_options[[sprintf("option label %d 1", x)]] <- sprintf("option-%d-1", x)
# r_options[[sprintf("option label %d 2", x)]] <- sprintf("option-%d-2", x)
#
# # Change values for input$inRadio
# updateRadioButtons(session, "inRadio", choices = r_options)
#
# # Can also set the label and select an item
# updateRadioButtons(session, "inRadio2",
# label = paste("Radio label", x),
# choices = r_options,
# selected = sprintf("option-%d-2", x)
# )
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab