SubsampleUI: Subsample a GatingSet

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

Description

Subsample a GatingSet

Subsample module server function

Usage

SubsampleUI(id)

Subsample(input, output, session, rval)

Arguments

id	shiny id
input	shiny input
output	shiny output
session	shiny session
rval	reactivevalues object with the following elements : gating_set : a GatingSet object

Value

The input reactivevalues object 'rval' with updated elements :

gating_set_list

list of GatingSet objects loaded

gating_set

selected GatingSet

gating_set_selected

Name of the selected GatingSet

Examples

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

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

VoisinneG/flowR documentation built on June 1, 2021, 6:42 p.m.