2.5 Inputs 2 - Dates, Limited choices, File uploads, Action buttons
ui <- fluidPage(
# DATES
dateInput("dob", "When were you born?"),
dateRangeInput("holiday", "Give start and end of Holiday season?"),
# LIMITED CHOICES
animals <- c("cat", "dog", "porpoise") ## Placed above UI
radioButtons("animal", "What's your favourite animal?", animals)
state_name <- c("AL", "AK", ..., "WY") ## Placed above UI
selectInput("state", "What's your favourite state?", state_name),
# FILE UPLOADS
fileInput("upload", NULL)
# ACTION BUTTONS
actionButton("click", "Click me!"),
actionButton("calc_boolean", "Calculate!", icon = icon("computer"))
)