ClusteringUI: Automatic cluster identification

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

Description

Automatic cluster identification

Clustering module server function

Usage

ClusteringUI(id)

Clustering(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)

if (interactive()){

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

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

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

  shinyApp(ui, server)

}

## End(Not run)

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