## 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
#
# updateNumericInput(session, "inNumber", value = x)
#
# updateNumericInput(session, "inNumber2",
# label = paste("Number label ", x),
# value = x, min = x-10, max = x+10, step = 5)
# })
# })
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace