R/runApp.xmsPANDALite.R

In kuppal2/xmsPANDA: R Package for Biomarker Discovery, Network, and Data Exploratory Analysis

runApp.xmsPANDALite <-
function() {
    
    suppressMessages(library(shiny))
                     suppressMessages(library(shinyjs))
                                      suppressMessages(library(shinyBS))
                                                       suppressMessages(library(DT))
    
    appDir <- system.file("shinyappLite", package = "xmsPANDA")
    if (appDir == "") {
      stop("Could not find shinyappLite directory. Try re-installing `xmsPANDA`.", call. = FALSE)
    }
    
    shiny::runApp(appDir, display.mode = "normal")
  }