View source: R/tm_g_pp_adverse_events.R
tm_g_pp_adverse_events | R Documentation |
This module produces an adverse events table and ggplot2::ggplot()
type plot using ADaM datasets.
tm_g_pp_adverse_events(
label,
dataname = "ADAE",
parentname = "ADSL",
patient_col = "USUBJID",
aeterm = NULL,
tox_grade = NULL,
causality = NULL,
outcome = NULL,
action = NULL,
time = NULL,
decod = 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_adverse_events( ..., # 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, {
ADAE <- tmc_ex_adae
ADSL <- tmc_ex_adsl %>%
filter(USUBJID %in% ADAE$USUBJID)
})
join_keys(data) <- default_cdisc_join_keys[names(data)]
ADSL <- data[["ADSL"]]
ADAE <- data[["ADAE"]]
app <- init(
data = data,
modules = modules(
tm_g_pp_adverse_events(
label = "Adverse Events",
dataname = "ADAE",
parentname = "ADSL",
patient_col = "USUBJID",
plot_height = c(600L, 200L, 2000L),
aeterm = choices_selected(
choices = variable_choices(ADAE, "AETERM"),
selected = "AETERM"
),
tox_grade = choices_selected(
choices = variable_choices(ADAE, "AETOXGR"),
selected = "AETOXGR"
),
causality = choices_selected(
choices = variable_choices(ADAE, "AEREL"),
selected = "AEREL"
),
outcome = choices_selected(
choices = variable_choices(ADAE, "AEOUT"),
selected = "AEOUT"
),
action = choices_selected(
choices = variable_choices(ADAE, "AEACN"),
selected = "AEACN"
),
time = choices_selected(
choices = variable_choices(ADAE, "ASTDY"),
selected = "ASTDY"
),
decod = NULL
)
)
)
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.