R/shiny.R

In yufree/enviGCMS: GC/LC-MS Data Analysis for Environmental Science

#' Shiny application for Short-Chain Chlorinated Paraffins analysis
#' @export
runsccp <- function() {
        file <- system.file("shinyapps", "sccp",
                            package = "enviGCMS")
        if (file == "") {
                stop("Could not find directory. Try re-installing `enviGCMS`.",
                     call. = FALSE)
        }
        shiny::runApp(file)
}
#' Shiny application for interactive mass defect plots analysis
#' @export
runMDPlot <- function() {
        file <- system.file("shinyapps", "MDPlot.rmd",
                            package = "enviGCMS")
        if (file == "") {
                stop("Could not find directory. Try re-installing `enviGCMS`.",
                     call. = FALSE)
        }
        rmarkdown::run(file)
}