R/run_flowR.R

In VoisinneG/flowR: R-shiny interface for the analysis of flow cytometry data

#' Run flowR GUI
#' @param modules names of shiny modules (server functions) to include in the GUI
#' @param shiny.maxRequestSize file size limit (in MB)
#' @import shiny
#' @export
run_flowR <- function(modules = NULL, shiny.maxRequestSize = 1000){
  
  options(shiny.maxRequestSize = shiny.maxRequestSize * 1024^2)
  
  app <- shinyApp(ui = flowR_ui(), 
           server = function(input, output, session){
             flowR_server(input = input,
                          output=output,
                          session = session,
                          modules = modules)}
           )
  
  runApp(app)
  
}