Description Usage Arguments Value Examples
View source: R/ImportSpill_module.R
Import spillover matrix
ImportSpill server function
1 2 3 | ImportSpillUI(id)
ImportSpill(input, output, session, rval)
|
id |
shiny id |
input |
shiny input |
output |
shiny output |
session |
shiny session |
rval |
A reactive values object |
The Importd matrix
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 30 31 | ## Not run:
library(shiny)
library(shinydashboard)
if (interactive()){
ui <- dashboardPage(
dashboardHeader(title = "ImportSpill"),
sidebar = dashboardSidebar(disable = TRUE),
body = dashboardBody(
box(title="Import", width = NULL, height = NULL,
ImportSpillUI("module")
)
)
)
server <- function(input, output, session) {
rval <- reactiveValues()
observe({
utils::data("GvHD", package = "flowCore")
rval$gating_set <- GatingSet(GvHD)
})
res <- callModule(ImportSpill, "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.