GatingUI: Edit, visualize and show statistics from a gating hierarchy

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

Description

Edit, visualize and show statistics from a gating hierarchy

Gating module server function

Usage

GatingUI(id)

Gating(input, output, session, rval)

Arguments

id	shiny id
input	shiny input
output	shiny output
session	shiny session
rval	A reactive values object

Value

The updated reactiveValues object rval

Examples

## Not run: 
library(shiny)
library(shinydashboard)
library(flowWorkspace)
library(flowCore)
library(viridis)
library(scales)
library(ggplot2)
library(ggrepel)
library(plotly)
library(ggridges)

if (interactive()){

  ui <- dashboardPage(
    dashboardHeader(title = "Gating"),
    sidebar = dashboardSidebar(disable = TRUE),
    body = dashboardBody(
      GatingUI("module")
    )
  )

  server <- function(input, output, session) {

    rval <- reactiveValues()
    observe({
      utils::data("GvHD", package = "flowCore")
      rval$gating_set <- GatingSet(GvHD)
    })
    res <- callModule(Gating, "module", rval = rval)
  }

  shinyApp(ui, server)

}

## End(Not run)

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