ADSL <- tmc_ex_adsl
app <- init(
data = cdisc_data(
ADSL = ADSL,
code = "ADSL <- tmc_ex_adsl"
),
modules = modules(
tm_t_pp_basic_info(
label = "Basic Info",
dataname = "ADSL",
patient_col = "USUBJID",
vars = choices_selected(
choices = variable_choices(ADSL),
selected = c("ARM", "AGE", "SEX", "COUNTRY", "RACE", "EOSSTT")
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
Run the code above in your browser using DataLab