tm_g_pp_therapy {teal.modules.clinical} | R Documentation |
teal Module: Patient Profile Therapy Table and Plot
Description
This module produces a patient profile therapy table and ggplot2::ggplot()
type plot using ADaM datasets.
Usage
tm_g_pp_therapy(
label,
dataname = "ADCM",
parentname = "ADSL",
patient_col = "USUBJID",
atirel = NULL,
cmdecod = NULL,
cmindc = NULL,
cmdose = NULL,
cmtrt = NULL,
cmdosu = NULL,
cmroute = NULL,
cmdosfrq = NULL,
cmstdy = NULL,
cmendy = 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 |
( |
parentname |
( |
patient_col |
( |
atirel |
( |
cmdecod |
( |
cmindc |
( |
cmdose |
( |
cmtrt |
( |
cmdosu |
( |
cmroute |
( |
cmdosfrq |
( |
cmstdy |
( |
cmendy |
( |
font_size |
( |
plot_height |
( |
plot_width |
( |
pre_output |
( |
post_output |
( |
ggplot2_args |
( |
Value
a teal_module
object.
Examples
library(nestcolor)
library(dplyr)
ADCM <- tmc_ex_adcm
ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID)
ADCM$CMASTDTM <- ADCM$ASTDTM
ADCM$CMAENDTM <- ADCM$AENDTM
adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4")
join_keys <- default_cdisc_join_keys[c("ADSL", "ADCM")]
join_keys["ADCM", "ADCM"] <- adcm_keys
app <- init(
data = cdisc_data(
ADSL = ADSL,
ADCM = ADCM,
code = "
ADCM <- tmc_ex_adcm
ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID)
ADCM$CMASTDTM <- ADCM$ASTDTM
ADCM$CMAENDTM <- ADCM$AENDTM
",
join_keys = join_keys
),
modules = modules(
tm_g_pp_therapy(
label = "Therapy",
dataname = "ADCM",
parentname = "ADSL",
patient_col = "USUBJID",
plot_height = c(600L, 200L, 2000L),
atirel = choices_selected(
choices = variable_choices(ADCM, "ATIREL"),
selected = c("ATIREL")
),
cmdecod = choices_selected(
choices = variable_choices(ADCM, "CMDECOD"),
selected = "CMDECOD"
),
cmindc = choices_selected(
choices = variable_choices(ADCM, "CMINDC"),
selected = "CMINDC"
),
cmdose = choices_selected(
choices = variable_choices(ADCM, "CMDOSE"),
selected = "CMDOSE"
),
cmtrt = choices_selected(
choices = variable_choices(ADCM, "CMTRT"),
selected = "CMTRT"
),
cmdosu = choices_selected(
choices = variable_choices(ADCM, "CMDOSU"),
selected = c("CMDOSU")
),
cmroute = choices_selected(
choices = variable_choices(ADCM, "CMROUTE"),
selected = "CMROUTE"
),
cmdosfrq = choices_selected(
choices = variable_choices(ADCM, "CMDOSFRQ"),
selected = "CMDOSFRQ"
),
cmstdy = choices_selected(
choices = variable_choices(ADCM, "ASTDY"),
selected = "ASTDY"
),
cmendy = choices_selected(
choices = variable_choices(ADCM, "AENDY"),
selected = "AENDY"
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}