MetadataUI: Import, export and edit metadata associated with a GatingSet

Description Usage Arguments Value Examples

View source: R/Metadata_module.R

Description

Import, export and edit metadata associated with a GatingSet

Metadata module server function

Usage

1
2
3
MetadataUI(id)

Metadata(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

 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
28
29
## Not run: 
# library(shiny)
library(shinydashboard)
library(flowWorkspace)

if (interactive()){

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

  server <- function(input, output, session) {
    rval <- reactiveValues()
    observe({
      utils::data("GvHD", package = "flowCore")
      rval$gating_set <- GatingSet(GvHD)
    })
    res <- callModule(Metadata, "module", rval = rval)
  }

  shinyApp(ui, server)

}

## End(Not run)

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