R/launch.R

In SeuratExplorer: An 'Shiny' App for Exploring scRNA-seq Data Processed in 'Seurat'

#' Launch shiny app
#'
#' @description
#' used to launch the shiny app in a web browser.
#'
#' @param verbose for debug use
#' @param ReductionKeyWords key words used for prepare Reduction options
#' @param SplitOptionMaxLevel max level cutoff for prepare Split options
#' @param MaxInputFileSize set the limited upload file size
#'
#' @import shiny
#' @return In-browser Shiny Application launch
#' @examples
#' if(interactive()){launchSeuratExplorer()}
#' @export
launchSeuratExplorer <- function(verbose = FALSE,
                                 ReductionKeyWords = c("umap","tsne","pca"),
                                 SplitOptionMaxLevel = 12,
                                 MaxInputFileSize = 20*1024^3 # default 20GB
                                 ){
  options(SeuratExplorerVerbose = verbose)
  options(SeuratExplorerReductionKeyWords = ReductionKeyWords)
  options(SeuratExplorerSplitOptionMaxLevel = SplitOptionMaxLevel)
  options(shiny.maxRequestSize = MaxInputFileSize)
  # Suppress the `as.list.reactivevalues()` deprecation warning emitted by
  # shinydashboard 0.7.3 (and other older deps) on newer Shiny versions.
  options(shiny.deprecation.messages = FALSE)

  shinyApp(ui, server)
}