R/country_select.R

In etc5523-2020/r-package-assessment-cgon0007: It is about covid-19, hepl people to understand it

#' Country Select Input in table
#'
#' 
#'
#' @author chenjie gong
#'
#' @param x A country names
#' 
#' 
#' 
#' @export
#'
#' 
#' 
#' 
#' 
#' @examples
#' \dontrun{
#' countryInput( x = coronavirus$location)
#' }
#'
#'
#'
#'
#'
countryInput <- function(x) {
  
  shiny::selectInput(
                     label = label,
                     choices = sort(unique(x)),
                     selected = "Guinea")
}