FDA Table 09

All Individual Subject Deaths, Safety Population, Pooled Analysis (or Trial X)

Table Preview

Setup

# Load libraries & data -------------------------------------
library(dplyr)
library(cards)
library(gtsummary)

adae <- pharmaverseadam::adae
adex <- pharmaverseadam::adex

# Pre-processing --------------------------------------------
# deaths
adae <- adae |>
  filter(
    # safety population
    SAFFL == "Y",
    # deaths
    DTHFL == "Y"
  ) |>
  # select variables from `adae` to include in final result
  select(USUBJID, TRT01A, AGE, SEX, DTHADY, DTHCAUS) |>
  # keep one row per unique ID
  distinct(USUBJID, DTHCAUS, DTHADY, .keep_all = TRUE)

# dosing
adex <- adex |>
  filter(
    # safety population
    SAFFL == "Y",
    # total dosages
    PARAMCD == "TDOSE"
  ) |>
  # select variables from `adex` to include in final result
  select(USUBJID, AVAL, TRTSDT, TRTEDT) |>
  mutate(
    # derive dosage duration
    DOSDUR = (TRTEDT - TRTSDT + 1) |> as.character()
  )

# combine all data
data <- left_join(adae, adex, by = "USUBJID") |>
  select(TRT01A, USUBJID, AGE, SEX, DOSDUR, DTHADY, DTHCAUS) |>
  arrange()

Build Table

tbl <- as_gtsummary(data) |>
  # set table header labels
  modify_header(
    TRT01A = "**Treatment Arm**",
    USUBJID = "**Unique  \n Subject ID**",
    AGE = "**Age**",
    SEX = "**Sex**",
    DOSDUR = "**Dosing**  \n **Duration**  \n **(Days)**",
    DTHADY = "**Study**  \n **Day of**  \n **Death**",
    DTHCAUS = "**Cause of Death**"
  ) |>
  # align all columns left
  modify_column_alignment(everything(), align = "left")

tbl

Build ARD

# For this table we do not build an ARD since we are returning the complete
# dataset as our result, so there are no statistics to display in an ARD.
# The full unformatted dataset (`data`) can be used instead if needed
data

# A tibble: 3 × 7
  TRT01A              USUBJID       AGE SEX   DOSDUR DTHADY DTHCAUS              
  <chr>               <chr>       <dbl> <chr> <chr>   <dbl> <chr>                
1 Xanomeline Low Dose 01-701-1211    76 F     59         61 SUDDEN DEATH         
2 Placebo             01-704-1445    75 M     175       175 COMPLETED SUICIDE    
3 Placebo             01-710-1083    89 F     11         12 MYOCARDIAL INFARCTION