R/select_input.R

In etc5523-2020/r-package-assessment-AbhishekSinha28: ETC5523 Shiny Package

#' Create inputs for shiny application
#' 
#' @description Create chosen shiny inputs for the different variables contained in a data set.
#'
#' @param input The variable chosen for the input as a character vector. Can be `"measure"`, `"state"`, or `"date"`.
#' @param data The data set for the input to be drawn from. Can be `usa_covid_data` or `usa_state_map`.
#'
#' @return A shiny control widget used to specify inputs for the visualisations in the application
#' 
#' @export
#'
#' 
select_input <- function(input, data){
  if(input == "measure"){
    shiny::radioButtons("measure",
                        "Select Measure",
                        choices = c("Total Cases", "Total Deaths"),
                        selected = "Total Cases")
  } else if(input == "state"){
    shiny::selectizeInput("state",
                          "Select State",
                          choices = unique(data$region),
                          selected = c(states_random(data)),
                          multiple = TRUE)
  } else if(input == "date"){
    shiny::sliderInput("date",
                       "Select Date",
                       min = min(data$date),
                       max = max(data$date),
                       value = c(min(data$date),max(data$date)))
  }
}