tests/testthat/module_examples/settingsMapping/app.R

In safetyGraphics: Interactive Graphics for Monitoring Clinical Trial Safety

library(shiny)
library(safetyGraphics)

partialMapping <- data.frame(
    domain=c("aes","labs","labs"),
    text_key=c("id_col","id_col","measure_col"),
    current=c("ID","myID","measure")
)

meta <- rbind(
  safetyCharts::meta_labs,
  safetyCharts::meta_aes,
  safetyCharts::meta_dm,
  safetyCharts::meta_hepExplorer
)

fullMapping<-read.csv('custom_mapping.csv')

ui <- tagList(
    tags$head(
    tags$link(
        rel = "stylesheet",
        type = "text/css",
        href = "index.css"
    )
    ),
    fluidPage(
        h1("Example 1: No Mapping"),
        settingsMappingUI("NoMapping"),
        h2("Example 2: Partial Mapping"),
        settingsMappingUI("PartialMapping"),
        h2("Example 3: Full Mapping"),
        settingsMappingUI("FullMapping"),
    )  
)
server <- function(input,output,session){
 callModule(settingsMapping, "NoMapping", metaIn = meta)
 callModule(settingsMapping, "PartialMapping", metaIn = meta,  mapping=reactive({partialMapping}) )
 callModule(settingsMapping, "FullMapping", metaIn = meta,   mapping=reactive({fullMapping}))
}

shinyApp(ui, server)