Nothing
#' 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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.