## 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
#
# updateDateRangeInput(session, "inDateRange",
# label = paste("Date range label", x),
# start = paste("2013-01-", x, sep=""))
# end = paste("2013-12-", x, sep=""))
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab