R/run_shiny_app.R

Defines functions run_shiny_app

Documented in run_shiny_app

#' Run a built-in Shiny App.
#'
#' @details This app allows you to upload a single MicroPEM file and to explore it via several tabs,
#' one with the summary of measures, one with settings, one with a plot and with alarms (see \code{\link[rtimicropem]{chai_alarm}}).
#' The app can e.g. be used after one day of field work to quickly check files.
#'
#' @examples
#' \dontrun{
#' run_shiny_app()
#' }
#' @export
run_shiny_app <- function() {
  if (!requireNamespace("shiny", quietly = TRUE)) {
    message("run_shiny_app needs the shiny package, \n
              Install it via install.packages('shiny')")
    return(NULL)
  }

  if (!requireNamespace("xtable", quietly = TRUE)) {
    message("run_shiny_app needs the xtable package, \n
              Install it via install.packages('xtable')")
    return(NULL)
  }
    # nocov start
    app_dir <- system.file("shiny-examples",
                          "myapp", package = "rtimicropem")
    if (app_dir == "") {
        stop("Could not find example directory. Try re-installing `micropem`.",
             call. = FALSE)
    }

    shiny::runApp(app_dir, display.mode = "normal")
}
# nocov end
maelle/rtimicropem documentation built on Dec. 6, 2019, 4:30 p.m.