External module example — external

Example for an external shiny module, well structured to be run within a workflow for MagellanNTK

extFoo1_ui(id)

extFoo1_server(
  id,
  dataIn = reactive({
     NULL
 }),
  i = reactive({
     NULL
 })
)

extFoo1(dataIn, i)

extFoo2_ui(id)

extFoo2_server(
  id,
  dataIn = reactive({
     NULL
 }),
  i = reactive({
     NULL
 })
)

extFoo2(dataIn, i)

Arguments

id: A character(1) which is the id of the shiny module.
dataIn: An object of instance MultiAssayExperiment
i: An integer which is the index of the assay in the param obj

Value

A shiny app

Examples

if (FALSE) { # \dontrun{
  data(vdata)
  app1 <- extFoo1(vdata, 1)
  app2 <- extFoo2(vdata, 1)
  shiny::runApp(app1)
  shiny::runApp(app2)
} # }