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