GatingSetsUI: Manage and visualize GatingSets and their hierarchy
In VoisinneG/flowR: R-shiny interface for the analysis of flow cytometry data

Description Usage Arguments Value Examples

Manage and visualize GatingSets and their hierarchy

GatingSets module server function

1
2
3

GatingSetsUI(id)

GatingSets(input, output, session, rval)

`id`	shiny id
`input`	shiny input
`output`	shiny output
`session`	shiny session
`rval`	a reactivevalues object with elements : gating_set_list a named list with each element being itself a list with: gating_set : a GatingSet parent : the name of its parent GatingSet

The reactivevalues object rval with updated elements :

gating_set_list: a named list with each element being itself a list with:

gating_set: : a GatingSet
parent: : the name of its parent GatingSet

gating_set_selected: Name of the selected GatingSet

## Not run: 
library(shiny)
library(shinydashboard)
library(flowCore)

if (interactive()){
  
  ui <- dashboardPage(
    dashboardHeader(title = "GatingSets"),
    sidebar = dashboardSidebar(disable = TRUE),
    body = dashboardBody(
      fluidRow(
        column(8, box(width = NULL, GatingSetsUI("module")))
      )
    )
  )
  
  server <- function(input, output, session) {
    
    rval <- reactiveValues()
    
    observe({
      utils::data("GvHD", package = "flowCore")
      gs <- GatingSet(GvHD)
      rval$gating_set_list <- list( GvHD = list(gating_set = gs, parent = NULL),
                                    subset = list(gating_set = gs, parent = "GvHD"))
    })
    
    rval <- callModule(GatingSets, "module", rval = rval)
    
  }
  
  shinyApp(ui, server)
  
}
## End(Not run)