R/launch_app.R

In etc5523-2020/r-package-assessment-HanseNgo305: A Covid-19 Dashboard for Vietnam

#' Launch the dashboard for Vietnam Covid-19
#' 
#' @description this function will launch the shiny app dashboard that was embedded in the package.
#' After you installed the package, simply load the package and type the command launch_app() in the console.
#' 
#' @export

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