#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)