Create Generic Occurrence Summary Table

Create Generic Occurrence Summary Table

Usage

build_generic_occurrence_table(
  occ_df,
  filter_cond = NULL,
  trt_var,
  dataset,
  class_var,
  term_var
)

Arguments

occ_df

(data.frame)
Occurrence dataset (typically ADAE, ADMH etc)

filter_cond

(character)
Filtering condition required for occ_df.

trt_var

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

dataset

(character)
Name of the dataset eg. "cadae".

class_var

(character)
Body system organ class variable.

term_var

(character)
Preferred term variable from occ_df to include in the table.

Value

List containing table layout object of Generic Occurrence Table and filtered Occurrencedata

See also

Other generic: build_adsl_chars_table(), build_disp_table(), build_generic_bds_table(), build_shift_table()

Examples

library(rtables)
library(tern)
library(dplyr)

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 <- filter(adae, SAFFL == "Y")

lyt <- build_generic_occurrence_table(
  occ_df = adae,
  filter_cond = NULL,
  trt_var = "ARM",
  dataset = "adae",
  class_var = "AESOC",
  term_var = "AEDECOD"
)
tbl <- build_table(lyt = lyt$lyt, df = lyt$df_out, alt_counts_df = adsl)

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