ฝึกใช้ sliderInput

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  sliderInput("sliderlabel",
              "Average hours of sleep",
              # Set the min and max values
              min = ___, max = ___,
              # Set the initial value to 8
              value = ___,
              # Set the step size to 0.5
              step = 0.2))
server <- function(input, output, session) {
}

shinyApp(ui, server)