11.8 UI: Control widgets/inputs Exercise (2)

1. Build a shiny user interface/layout with the control widgets figured below (!new style!)
   • Tipp: Widgets have to be separated by commas.

#ui.R
ui <- fluidPage(
  titlePanel("Widgets in the sidebar"),
  sidebarLayout(
    sidebarPanel(
      selectInput("select", label = h3("Select box"),
                  choices = list("Choice 1" = 1, "Choice 2" = 2,
                                 "Choice 3" = 3), selected = 1),

      sliderInput("slider", label = h3("Range (Slider)"),
                  min = 0, max = 100, value = c(25, 75))
    ),
    mainPanel("In the sidebar on the left we find two widgets that can be used to send messages to the app by the user.")
  )
)

server <- function(input, output) {}
shinyApp(ui=ui, server = server)