R/launch_app.R

In etc5523-2020/r-package-assessment-Year-97: The Shiny Application and the General Information about COVID-19

#' Launch the shiny app to explore the further information about COVID-19 
#' 
#' @description 
#' Runs the Covid-19 Shiny app which contains in the `CovidYe`` package.
#' 
#' @import shiny
#' 
#' @examples
#' \dontrun{
#' launch_app()
#' } 
#' 
#' @export

launch_app <- function(){
  appDir <- system.file("app", "app.R", package = "CovidYe")
  if(appDir == ""){
    stop("Could not find example directory. Try re-installing `CovidYe` package")
  }
  
  shiny::runApp(appDir, display.mode = "normal")
}