R/launch-app.R

In cantabricagr/cantabricar: Una ShinyApp para gestionar las cosechas de Cantabrica Agricultura Urbana

# app

#' Launch cantabrica-app
#' @export launch_app
#' @importFrom shiny shinyAppDir
launch_app <- function(){
    app_dir <- system.file("app", package = "cantabricar")
    if (!dir.exists(app_dir)) {
        stop("Could not find example directory. Try re-installing cantabricar.", call. = FALSE)
    }
    shinyAppDir(app_dir, options = list(display.mode = "normal", launch.browser = TRUE))
}