Using cross table
Dawid Kałędkowski
2022-06-14
using-cross-table.Rmd
Teal application to use cross table with various datasets types
This vignette will guide you through 4 parts to create a teal application using various types of datasets inside an cross table module:
- Load Libraries
- Create data sets
- Create an
app
variable - Run the App
Create data sets
Inside this app 5 datasets will be used
-
ADSL
A wide data set with subject data -
ADSL2
A wide data set with subject data -
ADRS
A long data set with response data for subjects at different time points of the study -
ADTTE
A long data set with time to event data -
ADLB
A long data set with lab measurements for each subject
ADSL <- synthetic_cdisc_data("latest")$adsl # nolint
ADSL2 <- synthetic_cdisc_data("latest")$adsl %>% # nolint
mutate(TRTDUR = round(as.numeric(TRTEDTM - TRTSDTM), 1))
ADRS <- synthetic_cdisc_data("latest")$adrs # nolint
ADTTE <- synthetic_cdisc_data("latest")$adtte # nolint
ADLB <- synthetic_cdisc_data("latest")$adlb %>% # nolint
mutate(CHGC = as.factor(case_when(
CHG < 1 ~ "N",
CHG > 1 ~ "P",
TRUE ~ "-"
)))
Create an app
variable
This is the most important section. We will use the teal::init
function to create an app. The data will be handed over using teal.data::cdisc_data
.
The app itself will be constructed by multiple calls of
tm_t_crosstable
using different combinations of data
sets.
app <- init(
data = cdisc_data(
cdisc_dataset("ADSL", ADSL, code = "ADSL <- synthetic_cdisc_data(\"latest\")$adsl"),
cdisc_dataset(
"ADSL2",
ADSL2,
keys = get_cdisc_keys("ADSL"),
code = "ADSL2 <- synthetic_cdisc_data(\"latest\")$adsl %>%
mutate(TRTDUR = round(as.numeric(TRTEDTM - TRTSDTM), 1))"
),
cdisc_dataset("ADRS", ADRS, code = "ADRS <- synthetic_cdisc_data(\"latest\")$adrs"),
cdisc_dataset("ADTTE", ADTTE, code = "ADTTE <- synthetic_cdisc_data(\"latest\")$adtte"),
cdisc_dataset("ADLB", ADLB,
code = "ADLB <- synthetic_cdisc_data(\"latest\")$adlb %>%
mutate(CHGC = as.factor(case_when(
CHG < 1 ~ 'N',
CHG > 1 ~ 'P',
TRUE ~ '-'
)))"
),
check = TRUE
),
modules = modules(
modules(
label = "Cross table",
tm_t_crosstable(
label = "Single wide dataset",
x = data_extract_spec(
"ADSL",
select = select_spec(
label = "Select variable:",
choices = variable_choices(ADSL),
selected = names(ADSL)[5],
multiple = TRUE,
fixed = FALSE,
ordered = TRUE
)
),
y = data_extract_spec(
"ADSL",
select = select_spec(
label = "Select variable:",
choices = variable_choices(ADSL),
selected = names(ADSL)[6],
multiple = FALSE,
fixed = FALSE
)
)
),
tm_t_crosstable(
label = "Same long datasets (different subsets)",
x = data_extract_spec(
dataname = "ADLB",
filter = filter_spec(
vars = "PARAMCD",
choices = value_choices(ADLB, "PARAMCD", "PARAM"),
selected = levels(ADLB$PARAMCD)[1],
multiple = FALSE
),
select = select_spec(
choices = variable_choices(ADLB),
selected = "AVISIT",
multiple = TRUE,
fixed = FALSE,
ordered = TRUE,
label = "Select variable:"
)
),
y = data_extract_spec(
dataname = "ADLB",
filter = filter_spec(
vars = "PARAMCD",
choices = value_choices(ADLB, "PARAMCD", "PARAM"),
selected = levels(ADLB$PARAMCD)[1],
multiple = FALSE
),
select = select_spec(
choices = variable_choices(ADLB),
selected = "LOQFL",
multiple = FALSE,
fixed = FALSE,
label = "Select variable:"
)
)
)
)
)
)
Run the app
A simple shiny::shinyApp
call will let you run the app.
Note that app is only displayed when running this code inside an R
session.