tests/testthat/module_examples/settingsData/app.R

In safetyGraphics: Interactive Graphics for Monitoring Clinical Trial Safety

library(shiny)
library(safetyGraphics)
#reactlogReset()

ui <- tagList(
  fluidPage(
    h1("Example 1: Labs Only"),
    settingsDataUI("ex1"),
    h2("Example 2: Labs+AES"),
    settingsDataUI("ex2"),
    # h2("Example 3: Labs+AEs+Extras"),
    # settingsDataUI("ex3")
  )  
)

server <- function(input,output,session){
  callModule(settingsData, "ex1", domains = list(labs=safetyData::adam_adlbc))
  callModule(settingsData, "ex2", domains = list(labs=lasafetyData::adam_adlbcs,aes=safetyData::adam_adae))
  # callModule(settingsData, "ex3", allData = rbind(lab_summary,ae_summary,extra) )
}

#options(shiny.reactlog = TRUE)
shinyApp(ui, server)