Disposition Summary Table

Disposition Summary Table

Usage

build_disp_table(
  adsl,
  trt_var,
  eos_var = "EOSSTT",
  eot_var = "EOTSTT",
  dcs_reas = "DCSREAS",
  dct_reas = "DCTREAS"
)

Arguments

adsl

(data.frame)
adsl data set.

trt_var

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

eos_var

(character)
Name of the end of study variable, default is "EOSSTT".

eot_var

(character)
Name of the end of treatment variable, default is "EOTSTT".

dcs_reas

(character)
Name of the study discontinuation reason variable, default is "DCSREAS".

dct_reas

(character)
Name of the treatment discontinuation reason variable, default is "DCTREAS".

Value

An rtable object of the Disposition Summary Table

See also

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

Examples

library(rtables)

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

tbl <- build_disp_table(
  adsl = adsl,
  trt_var = "ARM",
  eos_var = "EOSSTT",
  eot_var = "EOTSTT",
  dcs_reas = "DCSREAS",
  dct_reas = "DCTREAS"
)

tbl1 <- build_table(lyt = tbl$lyt[[1]], df = tbl$df)
tbl2 <- build_table(lyt = tbl$lyt[[2]], df = tbl$df)
col_info(tbl1) <- col_info(tbl2)
tt <- rbind(tbl1, tbl2)

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