## 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
#
# # Similar to number and text. only label and value can be set for slider
# updateSliderInput(session, "inSlider",
# label = paste("Slider label", x),
# value = x)
#
# # For sliders that pick out a range, pass in a vector of 2 values.
# updateSliderInput(session, "inSlider2", value = c(x-1, x+1))
#
# # An NA means to not change that value (the low or high one)
# updateSliderInput(session, "inSlider3", value = c(NA, x+2))
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab