function(input, output) {
# You can access the value of the widget with input$slider1, e.g.
output$value <- renderPrint({ input$slider1 })
# You can access the values of the second widget with input$slider2, e.g.
output$range <- renderPrint({ input$slider2 })
}
fluidPage(
fluidRow(
column(4,
# Copy the line below to make a slider bar
sliderInput("slider1", label = h3("Slider"), min = 0,
max = 100, value = 50)
),
column(4,
# Copy the line below to make a slider range
sliderInput("slider2", label = h3("Slider Range"), min = 0,
max = 100, value = c(40, 60))
)
),
hr(),
fluidRow(
column(4, verbatimTextOutput("value")),
column(4, verbatimTextOutput("range"))
)
)