Description Usage Arguments Value Examples
View source: R/Transform_module.R
Edit flow parameter transformation and description
Transform module server function
1 2 3 | TransformUI(id)
Transform(input, output, session, rval)
|
id |
shiny id |
input |
shiny input |
output |
shiny output |
session |
shiny session |
rval |
A reactive values object |
The updated reactiveValues object rval
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 | ## Not run:
library(shiny)
library(shinydashboard)
if (interactive()){
ui <- dashboardPage(
dashboardHeader(title = "Transform"),
sidebar = dashboardSidebar(disable = TRUE),
body = dashboardBody(
TransformUI("module")
)
)
server <- function(input, output, session) {
rval <- reactiveValues()
observe({
utils::data("GvHD", package = "flowCore")
rval$gating_set <- GatingSet(GvHD)
})
res <- callModule(Transform, "module", rval = rval)
}
shinyApp(ui, server)
}
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.