R/runRamanD2O.R

In gongyh/RamanD2O: RamanD2O: an R/Shiny app designed for the analysis of cellular Ramanome data

#' Run RamanD2O Shiny App
#'
#' The entry point of shiny app.
#'
#' The source code is in the `shinyapp` subdirectory.
#'
#' @export
runRamanD2O <- function() {
  appDir <- system.file("shinyapp", package = "RamanD2O")
  if (appDir == "") {
    stop("Could not find shinyapp directory. Try re-installing `RamanD2O`.",
      call. = FALSE
    )
  }

  library(RamanD2O)
  shiny::runApp(appDir, display.mode = "normal")
}