tm_t_events_patyear {teal.modules.clinical} | R Documentation |
teal Module: Event Rates Adjusted for Patient-Years
Description
This module produces a table of event rates adjusted for patient-years.
Usage
tm_t_events_patyear(
label,
dataname,
parentname = ifelse(inherits(arm_var, "data_extract_spec"),
teal.transform::datanames_input(arm_var), "ADSL"),
arm_var,
events_var,
paramcd,
aval_var = teal.transform::choices_selected(teal.transform::variable_choices(dataname,
"AVAL"), "AVAL", fixed = TRUE),
avalu_var = teal.transform::choices_selected(teal.transform::variable_choices(dataname,
"AVALU"), "AVALU", fixed = TRUE),
add_total = TRUE,
total_label = default_total_label(),
na_level = default_na_str(),
conf_level = teal.transform::choices_selected(c(0.95, 0.9, 0.8), 0.95, keep_order =
TRUE),
drop_arm_levels = TRUE,
pre_output = NULL,
post_output = NULL,
basic_table_args = teal.widgets::basic_table_args()
)
Arguments
label |
( |
dataname |
( |
parentname |
( |
arm_var |
( |
events_var |
( |
paramcd |
( |
aval_var |
( |
avalu_var |
( |
add_total |
( |
total_label |
( |
na_level |
( |
conf_level |
( |
drop_arm_levels |
( |
pre_output |
( |
post_output |
( |
basic_table_args |
( |
Value
a teal_module
object.
See Also
The TLG Catalog where additional example apps implementing this module can be found.
Examples
library(dplyr)
ADSL <- tmc_ex_adsl
ADAETTE <- tmc_ex_adaette %>%
filter(PARAMCD %in% c("AETTE1", "AETTE2", "AETTE3")) %>%
mutate(is_event = CNSR == 0) %>%
mutate(n_events = as.integer(is_event))
app <- init(
data = cdisc_data(
ADSL = ADSL,
ADAETTE = ADAETTE,
code = "
ADSL <- tmc_ex_adsl
ADAETTE <- tmc_ex_adaette %>%
filter(PARAMCD %in% c(\"AETTE1\", \"AETTE2\", \"AETTE3\")) %>%
mutate(is_event = CNSR == 0) %>%
mutate(n_events = as.integer(is_event))
"
),
modules = modules(
tm_t_events_patyear(
label = "AE Rate Adjusted for Patient-Years At Risk Table",
dataname = "ADAETTE",
arm_var = choices_selected(
choices = variable_choices(ADSL, c("ARM", "ARMCD")),
selected = "ARMCD"
),
add_total = TRUE,
events_var = choices_selected(
choices = variable_choices(ADAETTE, "n_events"),
selected = "n_events",
fixed = TRUE
),
paramcd = choices_selected(
choices = value_choices(ADAETTE, "PARAMCD", "PARAM"),
selected = "AETTE1"
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}