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.