R/select_provinceInput.R

In etc5523-2020/r-package-assessment-Lulu-Pi: Launch the shiny app of COVID-19 in China

#' Selection of provinces for users in app
#' 
#' @description Creates selection input in shiny package for users to choose which province they want to check with.
#'
#' @param data A dataset containing `Province/State` in columns. 
#' 
#' @return A shiny drop down menu with all provinces in data set.
#' 
#' @export
#'
select_provinceInput <- function(data) {
  province <- unique(data$`Province/State`)
    
  shiny::selectInput("Province", "what province do you want to look?",
                     choices = province,
                     selected = "Anhui")
}