View source: R/tm_g_pp_therapy.R
tm_g_pp_therapy | R Documentation |
This module produces a patient profile therapy table and ggplot2::ggplot()
type plot using ADaM datasets.
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(),
transformators = list(),
decorators = list()
)
a teal_module
object.
This module generates the following objects, which can be modified in place using decorators::
plot
(ggplot
)
table
(datatables
- output of DT::datatable()
)
A Decorator is applied to the specific output using a named list of teal_transform_module
objects.
The name of this list corresponds to the name of the output to which the decorator is applied.
See code snippet below:
tm_g_pp_therapy( ..., # arguments for module decorators = list( plot = teal_transform_module(...), # applied only to `plot` output table = teal_transform_module(...) # applied only to `table` output ) )
For additional details and examples of decorators, refer to the vignette
vignette("decorate-module-output", package = "teal.modules.clinical")
.
To learn more please refer to the vignette
vignette("transform-module-output", package = "teal")
or the teal::teal_transform_module()
documentation.
library(nestcolor)
library(dplyr)
data <- teal_data()
data <- within(data, {
ADCM <- tmc_ex_adcm
ADSL <- tmc_ex_adsl %>% filter(USUBJID %in% ADCM$USUBJID)
ADCM$CMASTDTM <- ADCM$ASTDTM
ADCM$CMAENDTM <- ADCM$AENDTM
})
join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADCM")]
adcm_keys <- c("STUDYID", "USUBJID", "ASTDTM", "CMSEQ", "ATC1", "ATC2", "ATC3", "ATC4")
join_keys(data)["ADCM", "ADCM"] <- adcm_keys
ADSL <- data[["ADSL"]]
ADCM <- data[["ADCM"]]
app <- init(
data = data,
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.