tm_g_forest_rsp {teal.modules.clinical} | R Documentation |
teal Module: Forest Response Plot
Description
This module produces a grid-style forest plot for response data with ADaM structure.
Usage
tm_g_forest_rsp(
label,
dataname,
parentname = ifelse(inherits(arm_var, "data_extract_spec"),
teal.transform::datanames_input(arm_var), "ADSL"),
arm_var,
arm_ref_comp = NULL,
paramcd,
aval_var = teal.transform::choices_selected(teal.transform::variable_choices(dataname,
"AVALC"), "AVALC", fixed = TRUE),
subgroup_var,
strata_var,
fixed_symbol_size = TRUE,
conf_level = teal.transform::choices_selected(c(0.95, 0.9, 0.8), 0.95, keep_order =
TRUE),
default_responses = c("CR", "PR", "Y", "Complete Response (CR)",
"Partial Response (PR)"),
plot_height = c(500L, 200L, 2000L),
plot_width = c(1500L, 800L, 3000L),
rel_width_forest = c(25L, 0L, 100L),
font_size = c(15L, 1L, 30L),
pre_output = NULL,
post_output = NULL,
ggplot2_args = teal.widgets::ggplot2_args()
)
Arguments
label |
( |
dataname |
( |
parentname |
( |
arm_var |
( |
arm_ref_comp |
( |
paramcd |
( |
aval_var |
( |
subgroup_var |
( |
strata_var |
( |
fixed_symbol_size |
( |
conf_level |
( |
default_responses |
( |
plot_height |
( |
plot_width |
( |
rel_width_forest |
( |
font_size |
( |
pre_output |
( |
post_output |
( |
ggplot2_args |
( For more details, see the vignette: |
Value
a teal_module
object.
See Also
The TLG Catalog where additional example apps implementing this module can be found.
Examples
library(nestcolor)
library(dplyr)
ADSL <- tmc_ex_adsl
ADRS <- tmc_ex_adrs %>%
mutate(AVALC = d_onco_rsp_label(AVALC) %>%
with_label("Character Result/Finding")) %>%
filter(PARAMCD != "OVRINV" | AVISIT == "FOLLOW UP")
arm_ref_comp <- list(
ARM = list(
ref = "B: Placebo",
comp = c("A: Drug X", "C: Combination")
),
ARMCD = list(
ref = "ARM B",
comp = c("ARM A", "ARM C")
)
)
app <- init(
data = cdisc_data(
ADSL = ADSL,
ADRS = ADRS,
code = "
ADSL <- tmc_ex_adsl
ADRS <- tmc_ex_adrs %>%
mutate(AVALC = d_onco_rsp_label(AVALC) %>%
with_label(\"Character Result/Finding\")) %>%
filter(PARAMCD != \"OVRINV\" | AVISIT == \"FOLLOW UP\")
"
),
modules = modules(
tm_g_forest_rsp(
label = "Forest Response",
dataname = "ADRS",
arm_var = choices_selected(
variable_choices(ADSL, c("ARM", "ARMCD")),
"ARMCD"
),
arm_ref_comp = arm_ref_comp,
paramcd = choices_selected(
value_choices(ADRS, "PARAMCD", "PARAM"),
"INVET"
),
subgroup_var = choices_selected(
variable_choices(ADSL, names(ADSL)),
c("BMRKR2", "SEX")
),
strata_var = choices_selected(
variable_choices(ADSL, c("STRATA1", "STRATA2")),
"STRATA2"
),
plot_height = c(600L, 200L, 2000L),
default_responses = list(
BESRSPI = list(
rsp = c("Stable Disease (SD)", "Not Evaluable (NE)"),
levels = c(
"Complete Response (CR)", "Partial Response (PR)", "Stable Disease (SD)",
"Progressive Disease (PD)", "Not Evaluable (NE)"
)
),
INVET = list(
rsp = c("Complete Response (CR)", "Partial Response (PR)"),
levels = c(
"Complete Response (CR)", "Not Evaluable (NE)", "Partial Response (PR)",
"Progressive Disease (PD)", "Stable Disease (SD)"
)
),
OVRINV = list(
rsp = c("Progressive Disease (PD)", "Stable Disease (SD)"),
levels = c("Progressive Disease (PD)", "Stable Disease (SD)", "Not Evaluable (NE)")
)
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}