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

extFoo1_ui(id)

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

extFoo1(obj, i)

extFoo2_ui(id)

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

extFoo2(obj, i)

Arguments

id

A character(1) which is the id of the shiny module.

obj

An object of instance MultiAssayExperiment

i

An integer which is the index of the assay in the param obj

Value

NA

NA

NA

A shiny app

NA

NA

A shiny app

Examples

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