sliderInput(inputId, label, min, max, value, step = NULL, round = FALSE, format = NULL, locale = NULL, ticks = TRUE, animate = FALSE, width = NULL, sep = ",", pre = NULL, post = NULL, timeFormat = NULL, timezone = NULL, dragRange = TRUE)
animationOptions(interval = 1000, loop = FALSE, playButton = NULL, pauseButton = NULL)input slot that will be used to access the value.NULL for no label.min and max.NULL, a heuristic is used to determine the step size). If
the values are dates, step is in days; if the values are times
(POSIXt), step is in seconds.TRUE to round all values to the nearest integer;
FALSE if no rounding is desired; or an integer to round to that
number of digits (for example, 1 will round to the nearest 10, and -2 will
round to the nearest .01). Any rounding will be applied after snapping to
the nearest step.FALSE to hide tick marks, TRUE to show them
according to some simple heuristics.TRUE to show simple animation controls with default
settings; FALSE not to; or a custom settings list, such as those
created using animationOptions.'400px', or '100%';
see validateCssUnit.strftime function. For Dates, the default is "%F"
(like "2015-07-01"), and for POSIXt, the default is "%F %T"
(like "2015-07-01 15:32:10")."+HHMM" or "-HHMM". If NULL (the default), times will
be displayed in the browser's time zone. The value "+0000" will
result in UTC time.TRUE (the default), the range can be dragged. In other
words, the min and max can be dragged together. If FALSE, the range
cannot be dragged.TRUE to automatically restart the animation when it
reaches the end.playButton, but for the pause button.updateSliderInputOther input.elements: actionButton,
checkboxGroupInput,
checkboxInput, dateInput,
dateRangeInput, fileInput,
numericInput, passwordInput,
radioButtons, selectInput,
submitButton, textAreaInput,
textInput
## Only run examples in interactive R sessions
if (interactive()) {
ui <- fluidPage(
sliderInput("obs", "Number of observations:",
min = 0, max = 1000, value = 500
),
plotOutput("distPlot")
)
# Server logic
server <- function(input, output) {
output$distPlot <- renderPlot({
hist(rnorm(input$obs))
})
}
# Complete app with UI and server components
shinyApp(ui, server)
}
Run the code above in your browser using DataLab