R/runRaMP.R

In bofei5675/RaMP2: RaMP (Relational Database of Metabolomic Pathways)

#' Run Shiny App
#' 
#' This function launches the RShiny app.  It requires a connection to the RaMP database as input, which requires running the function connectoToRaMP() and providing the MySQL password.  
#' 
#' @param conpass password for database access (string)
#' @examples
#' \dontrun{
#' con <- connectToRaMP(dbname="ramp",username="root",password="mypassword")
#' runRaMPapp(con=con)
#' }
#' @export
runRaMPapp <- function(conpass = NULL) {
 
  if(is.null(conpass)) {
        stop("Please define the password for the mysql connection")
  }

  appDir <- system.file("shinyApp",package = "RaMP")
  if (appDir == ""){
    DBI::dbDisconnect(con)
    stop("Could not find example directory. Try re-installing 'ramp'.")
  }
  # Make conpass a global variable so that it can be accessed by the shinyApp:
  .GlobalEnv$.conpass <- conpass
   on.exit(rm(.conpass, envir=.GlobalEnv))
  shiny::runApp(appDir,display.mode = "normal")
  
}