tm_g_pp_patient_timeline {teal.modules.clinical} | R Documentation |
teal Module: Patient Profile Timeline Plot
Description
This module produces a patient profile timeline ggplot2::ggplot()
type plot using ADaM datasets.
Usage
tm_g_pp_patient_timeline(
label,
dataname_adcm = "ADCM",
dataname_adae = "ADAE",
parentname = "ADSL",
patient_col = "USUBJID",
aeterm = NULL,
cmdecod = NULL,
aetime_start = NULL,
aetime_end = NULL,
dstime_start = NULL,
dstime_end = NULL,
aerelday_start = NULL,
aerelday_end = NULL,
dsrelday_start = NULL,
dsrelday_end = NULL,
font_size = c(12L, 12L, 25L),
plot_height = c(700L, 200L, 2000L),
plot_width = NULL,
pre_output = NULL,
post_output = NULL,
ggplot2_args = teal.widgets::ggplot2_args()
)
Arguments
label |
( |
dataname_adcm |
( |
dataname_adae |
( |
parentname |
( |
patient_col |
( |
aeterm |
( |
cmdecod |
( |
aetime_start |
( |
aetime_end |
( |
dstime_start |
( |
dstime_end |
( |
aerelday_start |
( |
aerelday_end |
( |
dsrelday_start |
( |
dsrelday_end |
( |
font_size |
( |
plot_height |
( |
plot_width |
( |
pre_output |
( |
post_output |
( |
ggplot2_args |
( |
Value
a teal_module
object.
Examples
library(nestcolor)
library(dplyr)
data <- teal_data()
data <- within(data, {
ADAE <- tmc_ex_adae
ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADAE$USUBJID)
ADCM <- tmc_ex_adcm %>% mutate(
CMSTDY = case_when(
CMCAT == "medcl B" ~ 20,
CMCAT == "medcl C" ~ 150,
TRUE ~ 1
) %>% with_label("Study Day of Start of Medication"),
CMENDY = case_when(
CMCAT == "medcl B" ~ 700,
CMCAT == "medcl C" ~ 1000,
TRUE ~ 500
) %>% with_label("Study Day of End of Medication"),
CMASTDTM = ASTDTM,
CMAENDTM = AENDTM
)
})
adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4")
datanames(data) <- c("ADSL", "ADAE", "ADCM")
join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADAE", "ADCM")]
join_keys(data)["ADCM", "ADCM"] <- adcm_keys
join_keys(data)["ADAE", "ADCM"] <- c("STUDYID", "USUBJID")
app <- init(
data = data,
modules = modules(
tm_g_pp_patient_timeline(
label = "Patient Timeline",
dataname_adae = "ADAE",
dataname_adcm = "ADCM",
parentname = "ADSL",
patient_col = "USUBJID",
plot_height = c(600L, 200L, 2000L),
cmdecod = choices_selected(
choices = variable_choices(data[["ADCM"]], "CMDECOD"),
selected = "CMDECOD",
),
aeterm = choices_selected(
choices = variable_choices(data[["ADAE"]], "AETERM"),
selected = c("AETERM")
),
aetime_start = choices_selected(
choices = variable_choices(data[["ADAE"]], "ASTDTM"),
selected = c("ASTDTM")
),
aetime_end = choices_selected(
choices = variable_choices(data[["ADAE"]], "AENDTM"),
selected = c("AENDTM")
),
dstime_start = choices_selected(
choices = variable_choices(data[["ADCM"]], "CMASTDTM"),
selected = c("CMASTDTM")
),
dstime_end = choices_selected(
choices = variable_choices(data[["ADCM"]], "CMAENDTM"),
selected = c("CMAENDTM")
),
aerelday_start = choices_selected(
choices = variable_choices(data[["ADAE"]], "ASTDY"),
selected = c("ASTDY")
),
aerelday_end = choices_selected(
choices = variable_choices(data[["ADAE"]], "AENDY"),
selected = c("AENDY")
),
dsrelday_start = choices_selected(
choices = variable_choices(data[["ADCM"]], "ASTDY"),
selected = c("ASTDY")
),
dsrelday_end = choices_selected(
choices = variable_choices(data[["ADCM"]], "AENDY"),
selected = c("AENDY")
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}