tm_t_pp_laboratory {teal.modules.clinical} | R Documentation |
teal Module: Patient Profile Laboratory Table
Description
This module produces a patient profile laboratory table using ADaM datasets.
Usage
tm_t_pp_laboratory(
label,
dataname = "ADLB",
parentname = "ADSL",
patient_col = "USUBJID",
timepoints = NULL,
aval = lifecycle::deprecated(),
aval_var = NULL,
avalu = lifecycle::deprecated(),
avalu_var = NULL,
param = NULL,
paramcd = NULL,
anrind = NULL,
pre_output = NULL,
post_output = NULL,
transformators = list(),
decorators = list()
)
Arguments
label |
( |
dataname |
( |
parentname |
( |
patient_col |
( |
timepoints |
( |
aval |
|
aval_var |
( |
avalu |
|
avalu_var |
( |
param |
( |
paramcd |
( |
anrind |
( |
pre_output |
( |
post_output |
( |
transformators |
( |
decorators |
See section "Decorating Module" below for more details. |
Value
a teal_module
object.
Decorating Module
This module generates the following objects, which can be modified in place using decorators:
-
table
(datatables
- output ofDT::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_t_pp_laboratory( ..., # arguments for module decorators = list( 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.
Examples in Shinylive
- example-1
Examples
data <- teal_data()
data <- within(data, {
ADSL <- tmc_ex_adsl
ADLB <- tmc_ex_adlb
})
join_keys(data) <- default_cdisc_join_keys[names(data)]
ADSL <- data[["ADSL"]]
ADLB <- data[["ADLB"]]
app <- init(
data = data,
modules = modules(
tm_t_pp_laboratory(
label = "Vitals",
dataname = "ADLB",
patient_col = "USUBJID",
paramcd = choices_selected(
choices = variable_choices(ADLB, "PARAMCD"),
selected = "PARAMCD"
),
param = choices_selected(
choices = variable_choices(ADLB, "PARAM"),
selected = "PARAM"
),
timepoints = choices_selected(
choices = variable_choices(ADLB, "ADY"),
selected = "ADY"
),
anrind = choices_selected(
choices = variable_choices(ADLB, "ANRIND"),
selected = "ANRIND"
),
aval_var = choices_selected(
choices = variable_choices(ADLB, "AVAL"),
selected = "AVAL"
),
avalu_var = choices_selected(
choices = variable_choices(ADLB, "AVALU"),
selected = "AVALU"
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}