mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-02 02:34:57 -05:00
44 lines
1.2 KiB
R
44 lines
1.2 KiB
R
library(shiny)
|
|
|
|
# Define UI for slider demo application
|
|
shinyUI(fluidPage(
|
|
|
|
# Application title
|
|
titlePanel("Sliders"),
|
|
|
|
# Sidebar with sliders that demonstrate various available
|
|
# options
|
|
sidebarLayout(
|
|
sidebarPanel(
|
|
# Simple integer interval
|
|
sliderInput("integer", "Integer:",
|
|
min=0, max=1000, value=500),
|
|
|
|
# Decimal interval with step value
|
|
sliderInput("decimal", "Decimal:",
|
|
min = 0, max = 1, value = 0.5, step= 0.1),
|
|
|
|
# Specification of range within an interval
|
|
sliderInput("range", "Range:",
|
|
min = 1, max = 1000, value = c(200,500)),
|
|
|
|
# Provide a custom currency format for value display,
|
|
# with basic animation
|
|
sliderInput("format", "Custom Format:",
|
|
min = 0, max = 10000, value = 0, step = 2500,
|
|
format="$#,##0", locale="us", animate=TRUE),
|
|
|
|
# Animation with custom interval (in ms) to control speed,
|
|
# plus looping
|
|
sliderInput("animation", "Looping Animation:", 1, 2000, 1,
|
|
step = 10, animate=
|
|
animationOptions(interval=300, loop=TRUE))
|
|
),
|
|
|
|
# Show a table summarizing the values entered
|
|
mainPanel(
|
|
tableOutput("values")
|
|
)
|
|
)
|
|
))
|