R/SeuratWizard.R

In nasqar/seuratv3wizard: User Interface to Seurat (Single Cell) library in R Shiny

#' @export
SeuratV3Wizard <- function(ip=NULL,port=NULL){
  if(is.null(ip))
    ip = '0.0.0.0'

  if(is.null(port))
    port = 1234

  appDir <- system.file('shiny', package = "SeuratV3Wizard")
  shiny::runApp(appDir,host = getOption('shiny.host', ip),port = port,launch.browser = FALSE)
}