R/run_scDissector.R

In effiken/scDissector: Exploratory Data Analysis tool for single-cell RNA-seq data

#' Runs scDissector shiny app
#'  
#' @param preloaded_data LDM object (optional)
#' @param clustering_data_path path to clustering data folder (optional)
#' 
#' @export
run_scDissector <- function(preloaded_data=NULL,clustering_data_path=NULL) {
  appDir <- system.file("scDissector", package = "scDissector")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `scDissector`.", call. = FALSE)
  }
  
  if (!is.null(preloaded_data)){
    .scDissector_preloaded_data<<-preloaded_data
  }
  else{
    if (exists(".scDissector_preloaded_data")){
      rm(.scDissector_preloaded_data,envir = globalenv())
    }
  }
  if (!is.null(clustering_data_path)){
    .scDissector_clustering_data_path<<-clustering_data_path
  }
  else{
    if (exists(".scDissector_clustering_data_path")){
      rm(.scDissector_clustering_data_path,envir=globalenv())
    }
  }
  shiny::runApp(appDir, display.mode = "normal")
  on.exit(rm(list= list(.scDissector_preloaded_data,.scDissector_clustering_data_path),envir = .GlobalEnv))
}
#devtools::document("Documents/GitHub/scDissector")