#' 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.