R/shiny.R

In yufree/pmd: Paired Mass Distance Analysis for GC/LC-MS Based Non-Targeted Analysis and Reactomics Analysis

#' Shiny application for PMD analysis
#' @export
runPMD <- function() {
    file <- system.file("shinyapp", "PMD.Rmd",
        package = "pmd")
    if (file == "") {
        stop("Could not find directory. Try re-installing `pmd`.",
            call. = FALSE)
    }
    rmarkdown::run(file)
}
#' Shiny application for PMD network analysis
#' @export
runPMDnet <- function() {
    file <- system.file("shinyapp", "pmdnet.Rmd",
                        package = "pmd")
    if (file == "") {
        stop("Could not find directory. Try re-installing `pmd`.",
             call. = FALSE)
    }
    rmarkdown::run(file)
}