Skip to contents

Create ADAE Summary Table

Source: R/adae_utils.R
build_adae_summary.Rd

[Maturing]

Usage

build_adae_summary(adae, filter_cond = NULL, event_vars, trt_var)

Arguments

adae

(data.frame)
ADAE dataset.

filter_cond

(character)
Filtering condition required for adae.

event_vars

(vector of character)
Variables added to source ADAE by add_adae_flags().

trt_var

(character)
Arm variable used to split table into columns.

Value

List containing layout object of ADAE Summary Table and filtered ADAE data

See also

Other adae_utils: add_adae_flags(), build_adae_by_sev_tox()

Examples

suppressMessages(library(rtables))

adsl <- pharmaverseadam::adsl |> drop_missing_cols()
#> Error in loadNamespace(x): there is no package called 'pharmaverseadam'
adae <- pharmaverseadam::adae |> drop_missing_cols()
#> Error in loadNamespace(x): there is no package called 'pharmaverseadam'

adae_ <- suppressMessages(add_adae_flags(adae))
lyt <- build_adae_summary(
  adae = adae_,
  filter_cond = NULL,
  event_vars = setdiff(names(adae_), names(adae)),
  trt_var = "ARM"
)
tbl <- build_table(lyt = lyt$lyt, df = lyt$df_out, alt_counts_df = adsl)

if (FALSE) { # \dontrun{
tt_to_flextable(tbl)
} # }