R/launch.R

In jackolney/CascadeDashboard: A Shiny App for Investigating The Current Trajectory of HIV Care

#' Launch shiny app
#'
#' @title Launch CascadeDashboard Shiny App
#'
#' @export
launch <- function() {
    cat("Press ESC (or Ctrl-C) to get back to the R session\n")
    wd <- system.file("app", package = "CascadeDashboard")
    if (wd == "") {
        stop("Could not find app. Try re-installing `CascadeDashboard`.", call. = FALSE)
    }
    shiny::runApp(wd, quiet = FALSE, display.mode = "normal")
}