tm_t_abnormality_by_worst_grade {teal.modules.clinical} | R Documentation |
teal Module: Laboratory test results with highest grade post-baseline
Description
This module produces a table to summarize laboratory test results with highest grade post-baseline
Usage
tm_t_abnormality_by_worst_grade(
label,
dataname,
parentname = ifelse(inherits(arm_var, "data_extract_spec"),
teal.transform::datanames_input(arm_var), "ADSL"),
arm_var,
id_var = teal.transform::choices_selected(teal.transform::variable_choices(dataname,
subset = "USUBJID"), selected = "USUBJID", fixed = TRUE),
paramcd,
atoxgr_var =
teal.transform::choices_selected(teal.transform::variable_choices(dataname, subset =
"ATOXGR"), selected = "ATOXGR", fixed = TRUE),
worst_high_flag_var =
teal.transform::choices_selected(teal.transform::variable_choices(dataname, subset =
"WGRHIFL"), selected = "WGRHIFL", fixed = TRUE),
worst_low_flag_var =
teal.transform::choices_selected(teal.transform::variable_choices(dataname, subset =
"WGRLOFL"), selected = "WGRLOFL", fixed = TRUE),
worst_flag_indicator = teal.transform::choices_selected("Y"),
add_total = TRUE,
total_label = default_total_label(),
drop_arm_levels = TRUE,
pre_output = NULL,
post_output = NULL,
basic_table_args = teal.widgets::basic_table_args()
)
Arguments
label |
( |
dataname |
( |
parentname |
( |
arm_var |
( |
id_var |
( |
paramcd |
( |
atoxgr_var |
( |
worst_high_flag_var |
( |
worst_low_flag_var |
( |
worst_flag_indicator |
( |
add_total |
( |
total_label |
( |
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
ADLB <- tmc_ex_adlb %>%
filter(!AVISIT %in% c("SCREENING", "BASELINE"))
app <- init(
data = cdisc_data(
ADSL = ADSL,
ADLB = ADLB,
code = "
ADSL <- tmc_ex_adsl
ADLB <- tmc_ex_adlb %>%
filter(!AVISIT %in% c(\"SCREENING\", \"BASELINE\"))
"
),
modules = modules(
tm_t_abnormality_by_worst_grade(
label = "Laboratory Test Results with Highest Grade Post-Baseline",
dataname = "ADLB",
arm_var = choices_selected(
choices = variable_choices(ADSL, subset = c("ARM", "ARMCD")),
selected = "ARM"
),
paramcd = choices_selected(
choices = value_choices(ADLB, "PARAMCD", "PARAM"),
selected = c("ALT", "CRP", "IGA")
),
add_total = FALSE
)
),
filter = teal_slices(
teal_slice("ADSL", "SAFFL", selected = "Y"),
teal_slice("ADLB", "ONTRTFL", selected = "Y")
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}