Description Usage Arguments Value Examples
View source: R/selection_module.R
Select samples and subsets from a GatingSet
selection module server function
1 2 3 4 5 6 7 8 9 10  | selectionInput(id)
selection(
  input,
  output,
  session,
  rval,
  params = reactiveValues(),
  multiple_subset = TRUE
)
 | 
id | 
 shiny id  | 
input | 
 shiny input  | 
output | 
 shiny output  | 
session | 
 shiny session  | 
rval | 
 reactivevalues object with the following elements : 
 
  | 
params | 
 reactivevalues object used to initialize selected samples and subsets with elements (not mandatory) : 
  | 
multiple_subset | 
 logical; allow selection of multiple subsets  | 
a reactivevalues object with input values amongst which:
: selected samples
: selected subsets
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27  | ## Not run: 
library(shiny)
if (interactive()){
  
  ui <- fluidPage(
    selectionInput("selection_module")
  )
  
  server <- function(input, output, session) {
    
    rval <- reactiveValues()
    params <- reactiveValues()
    
    observe({
      gs <- load_gs("./inst/ext/gs")
      rval$gating_set <- gs
      params$sample <- pData(gs)$name[2]
    })
    
    callModule(selection, "selection_module", rval, params = params)
  }
  
  shinyApp(ui, server)
  
}
## End(Not run)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.