R/30-launch_shiny.R

In tidymass/tidymass: R packages for mass spectrometry data processing and analysis

#' #' Launch tidymass Shiny Application
#' #'
#' #' This function launches the tidymass Shiny application included in the 'tidymass' package.
#' #' It locates the Shiny app directory within the installed package and runs the app.
#' #'
#' #' @return None.
#' #' @export
#' #'
#' #' @note This function does not take any arguments.
#' #'       Ensure that the 'tidymass' package is correctly installed with the Shiny app included.
#' 
#' launch_tidymass_shiny <-
#'   function() {
#'     if (!requireNamespace("shiny", quietly = TRUE)) {
#'       stop("The 'shiny' package is required but not installed. Please install 'shiny' to use this function.",
#'            call. = FALSE)
#'     }
#'     
#'     appDir <- system.file("shinyapp/tidymass", package = "tidymass")
#'     if (appDir == "") {
#'       stop("Shiny app not found in the package", call. = FALSE)
#'     }
#'     
#'     shiny::runApp(appDir)
#'   }
#' 
#' 
#' #' Launch metid Shiny Application
#' #'
#' #' This function launches the metid Shiny application included in the 'metid' package.
#' #' It locates the Shiny app directory within the installed package and runs the app.
#' #'
#' #' @return None.
#' #' @export
#' #'
#' #' @note This function does not take any arguments.
#' #'       Ensure that the 'metid' package is correctly installed with the Shiny app included.
#' 
#' launch_metid_shiny <-
#'   function() {
#'     if (!requireNamespace("shiny", quietly = TRUE)) {
#'       stop("The 'shiny' package is required but not installed. Please install 'shiny' to use this function.",
#'            call. = FALSE)
#'     }
#'     
#'     appDir <- system.file("shinyapp/metid", package = "tidymass")
#'     if (appDir == "") {
#'       stop("Shiny app not found in the package", call. = FALSE)
#'     }
#'     
#'     shiny::runApp(appDir)
#'   }