R/cytofkit_shiny_dashboard.R

In JinmiaoChenLab/cytofkit2: cytofkit2: an integrated mass cytometry data analysis pipeline. Cytofkit provides functions for data pre-processing, fast clustering, data visualization through linear or non-linear dimensionality reduction, automatic identification of cell subsets, and inference of the relatedness between cell subsets

#' Title
#'
#' @param onServer Whether the app is running on a server.
#' @param port Manually set a port, default is randomly allocated.
#'
#' @return cytofkit2
#' @export
#' @examples 
  #cytofkit_shiny_dashboard()  
cytofkit_shiny_dashboard = function(onServer = FALSE, port = NULL){
  if(isTRUE(onServer)){
    host <- "0.0.0.0"
  }else{
    host <- "127.0.0.1"
  }
  if(!is.null(port)){
    shiny::runApp(system.file('shiny', package = 'cytofkit2'), host = host,
                  port = port)
  } else {
    shiny::runApp(system.file('shiny', package = 'cytofkit2'), host = host)
  }
}