R/shinyApp.R

In drighelli/easyreporting: Helps creating report for improving Reproducible Computational Research

#' erGUIVolcano
#' @description executes a Shiny GUI to perform a volcano plot and trace its
#' executed functions.
#' @return none
#' @export
#'
#' @examples
#' \dontrun{
#' erGUIVolcano()
#' }
erGUIVolcano <- function()
{
    appDir <- system.file("shiny_examples", "volcano_app", package="easyreporting")
    if (appDir == "") {
        stop("Could not find example directory. Try re-installing `easyreporting`.", call.=FALSE)
    }
    
    shiny::runApp(appDir, display.mode="normal")
}