patternSelectionInput: Select variables based on pattern (or a regular expression)

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

Description

Select variables based on pattern (or a regular expression)

patternSelection module server function

Usage

patternSelectionInput(id)

patternSelection(input, output, session, choices = reactiveValues())

Arguments

id	shiny id
input	shiny input
output	shiny output
session	shiny session
choices	reactivevalues object containing vectors of possible choices for each selection variable

Value

a reactivevalues object with:

values

: selected values

variable

: selected variable

Examples

## Not run: 
library(shiny)

 if (interactive()){
  
  ui <- fluidPage(
    selectizeInput("selection",
                   label = "selected values",
                   choices = NULL, selected = NULL, multiple = TRUE),
    patternSelectionInput("pattern_module")
  )
  
  server <- function(input, output, session) {
    
    choices <- reactiveValues()
    
    observe({
      gs <- load_gs("./inst/ext/gs")
      choices$sample <- pData(gs)$name
      choices$subset <- gs_get_pop_paths(gs)
    })
    
    res <- callModule(patternSelection, "pattern_module", choices = choices)
    
    observe({
      if(!is.null(res$variable)){
        updateSelectizeInput(session, "selection", 
          choices = choices[[res$variable]], selected = res$values)
      }
    })
    
  }
  
  shinyApp(ui, server)
  
}
## End(Not run)

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