Slider

Slider
sliderPanel(inputId, label, min, max, value, step=NULL, round=FALSE, format="#,##0.####", locale="us", ticks=TRUE, animate=FALSE)
# format, locale은 deprecated 됨, 사용 불가능
tableOutput(outputId)
renderTable(expr, ..., env=parent.frame(), quoted=FALSE, func=NULL)
ui.R(Slider)
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Sliders"),
sidebarPanel(
sliderInput("integer", "Integer: ", min=0, max=1000, value=500),
sliderInput("decimal", "Decimal: ", min=0, max=1, value=0.5, step=.1),
sliderInput("range", "Range: ", min=1, max=1000, value=c(200, 500)),
sliderInput("animate", "Animate:: ", min=0, max=10000, value=0, step=2500, animate=TRUE),
sliderInput("animation", "Looping Animation", 1, 2000, 1, step=10, animate=animationOptions(interval=300, loop=T))
),
mainPanel(
tableOutput("values")
)
))
server.R(Slider)
library(shiny)
shinyServer(function(input, output){
sliderValues<-reactive({
data.frame(
Name=c("Integer", "Decimal", "Range", "Custom Format", "Animation"),
Value=as.character(c(input$integer, input$decimal, paste(input$range, collapse=' '), input$animate, input$animation)),
stringAsFactors=FALSE)
})
output$values<-renderTable({
sliderValues()
})
})