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))
})
})
Run the code above in your browser using DataLab