## Only run examples in interactive R sessions
if (interactive()) {
ui <- fluidPage(
sliderInput("controller", "Controller", 1, 30, 10),
dateRangeInput("inDateRange", "Input date range")
)
server <- 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="")
)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataCamp Workspace