TLG Catalog - Stable
  • Stable
    • Dev
  1. Listings
  2. Adverse Events
  3. AEL02_ED
  • Introduction

  • Tables
    • ADA
      • ADAT01
      • ADAT02
      • ADAT03
      • ADAT04A
      • ADAT04B
    • Adverse Events
      • AET01
      • AET01_AESI
      • AET02
      • AET02_SMQ
      • AET03
      • AET04
      • AET04_PI
      • AET05
      • AET05_ALL
      • AET06
      • AET06_SMQ
      • AET07
      • AET09
      • AET09_SMQ
      • AET10
    • Concomitant Medications
      • CMT01
      • CMT01A
      • CMT01B
      • CMT02_PT
    • Deaths
      • DTHT01
    • Demography
      • DMT01
    • Disclosures
      • DISCLOSUREST01
      • EUDRAT01
      • EUDRAT02
    • Disposition
      • DST01
      • PDT01
      • PDT02
    • ECG
      • EGT01
      • EGT02
      • EGT03
      • EGT04
      • EGT05_QTCAT
    • Efficacy
      • AOVT01
      • AOVT02
      • AOVT03
      • CFBT01
      • CMHT01
      • COXT01
      • COXT02
      • DORT01
      • LGRT02
      • MMRMT01
      • ONCT05
      • RATET01
      • RBMIT01
      • RSPT01
      • TTET01
    • Exposure
      • EXT01
    • Lab Results
      • LBT01
      • LBT02
      • LBT03
      • LBT04
      • LBT05
      • LBT06
      • LBT07
      • LBT08
      • LBT09
      • LBT10
      • LBT10_BL
      • LBT11
      • LBT11_BL
      • LBT12
      • LBT12_BL
      • LBT13
      • LBT14
      • LBT15
    • Medical History
      • MHT01
    • Pharmacokinetic
      • PKCT01
      • PKPT02
      • PKPT03
      • PKPT04
      • PKPT05
      • PKPT06
      • PKPT07
      • PKPT08
      • PKPT11
    • Risk Management Plan
      • RMPT01
      • RMPT03
      • RMPT04
      • RMPT05
      • RMPT06
    • Safety
      • ENTXX
    • Vital Signs
      • VST01
      • VST02
  • Listings
    • ADA
      • ADAL02
    • Adverse Events
      • AEL01
      • AEL01_NOLLT
      • AEL02
      • AEL02_ED
      • AEL03
      • AEL04
    • Concomitant Medications
      • CML01
      • CML02A_GL
      • CML02B_GL
    • Development Safety Update Report
      • DSUR4
    • Disposition
      • DSL01
      • DSL02
    • ECG
      • EGL01
    • Efficacy
      • ONCL01
    • Exposure
      • EXL01
    • Lab Results
      • LBL01
      • LBL01_RLS
      • LBL02A
      • LBL02A_RLS
      • LBL02B
    • Medical History
      • MHL01
    • Pharmacokinetic
      • ADAL01
      • PKCL01
      • PKCL02
      • PKPL01
      • PKPL02
      • PKPL04
    • Vital Signs
      • VSL01
  • Graphs
    • Efficacy
      • FSTG01
      • FSTG02
      • KMG01
      • MMRMG01
      • MMRMG02
    • Other
      • BRG01
      • BWG01
      • CIG01
      • IPPG01
      • LTG01
      • MNG01
    • Pharmacokinetic
      • PKCG01
      • PKCG02
      • PKCG03
      • PKPG01
      • PKPG02
      • PKPG03
      • PKPG04
      • PKPG06

  • Appendix
    • Reproducibility

  • Index

On this page

  • Output
  • Reproducibility
    • Timestamp
    • Session Info
    • .lock file
  • Edit this page
  • Report an issue
  1. Listings
  2. Adverse Events
  3. AEL02_ED

AEL02_ED

Listing of Adverse Events (for Early Development Studies)


Output

  • Standard Listing
  • Data Setup
  • Preview
  • Try this using WebR
Code
lsting <- as_listing(
  out,
  key_cols = c("TRT01A", "cent_subj", "ASR"),
  disp_cols = names(out),
  main_title = "Listing of Adverse Events (for early development studies)",
  main_footer = "
(1) Outcome: 1 = fatal; 2 = not recovered/not resolved; 3 = recovered/resolved;
    4 = recovered/resolved with sequelae; 5 = recovering/resolving; 6 = unknown.
(2) Action taken with study drug: 1 = dose increased; 2 = dose not changed;
    3 = dose reduced; 4 = drug interrupted; 5 = drug withdrawn; 6 = not applicable;
    7 = unknown.
*  Study day derived from imputed onset date.
** Duration derived from imputed onset date and/or end date."
)

head(lsting, 20)
Listing of Adverse Events (for early development studies)

————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
                                                                                           Time from   Time from   Time from                                                                            
                                                                    Adverse       Study    Last Dose   Last Dose   Last Dose      AE                  Most      Caused by                         Action
                                                                  Event MedDRA    Day of   to Onset    to Onset    to Onset    Duration              Extreme      Study     Outcome   Treatment   Taken 
Treatment   Center/Patient ID            Age/Sex/Race            Preferred Term   Onset      days         hrs        mins      in Days    Serious   Intensity     Drug        (1)      for AE      (2)  
————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
A: Drug X     BRA-1/id-134                47/M/WHITE             dcd B.2.1.2.1     162         7          19           4         173        No      MODERATE       No          5         Yes        2   
                                                                 dcd D.1.1.4.2     196         1          20          48         166        No      MODERATE       No          5         No         2   
                                                                 dcd A.1.1.1.2     321        28          12          54         149        Yes     MODERATE       No          5         Yes        2   
                                                                 dcd A.1.1.1.2     393        12          19          17          43        Yes     MODERATE       No          5         No         5   
               BRA-1/id-42      36/M/BLACK OR AFRICAN AMERICAN   dcd C.2.1.2.1      39        30           9           4         506        No      MODERATE       Yes         2         No         6   
                                                                 dcd D.1.1.1.1      64        26          17          10         630        Yes      SEVERE        Yes         1         No         6   
                                                                 dcd C.2.1.2.1      95         4          12          58         306        No      MODERATE       Yes         5         No         2   
                                                                 dcd A.1.1.1.2     160        24           5          57         259        Yes     MODERATE       No          2         Yes        2   
                                                                 dcd B.2.2.3.1     292         9          23           4          50        Yes       MILD         No          3         No         2   
                                                                 dcd A.1.1.1.2     459         9           5           4         195        Yes     MODERATE       No          5         Yes        2   
                                                                 dcd B.1.1.1.1     470         6           5           0         131        Yes      SEVERE        Yes         1         No         6   
                                                                 dcd A.1.1.1.2     475        20          16          16         113        Yes     MODERATE       No          4         Yes        2   
                                                                 dcd C.1.1.1.3     496         5           5          28         162        No       SEVERE        Yes         5         Yes        2   
                                                                 dcd B.1.1.1.1     641         8          17           4          15        Yes      SEVERE        Yes         1         Yes        6   
               BRA-1/id-93                34/F/ASIAN             dcd D.1.1.4.2      44        18          15          39          47        No      MODERATE       No          5         Yes        2   
                                                                 dcd D.2.1.5.3      79         2           3          58         300        No        MILD         Yes         5         No         3   
                                                                 dcd A.1.1.1.1     136        22           1          19          78        No        MILD         No          3         Yes        2   
                                                                 dcd D.2.1.5.3     260        12          12          26         305        No        MILD         Yes         5         No         2   
                                                                 dcd C.1.1.1.3     281         4          14          52         106        No       SEVERE        Yes         5         Yes        2   
                                                                 dcd D.1.1.1.1     316         6          12          43         250        Yes      SEVERE        Yes         1         No         6   
————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————


(1) Outcome: 1 = fatal; 2 = not recovered/not resolved; 3 = recovered/resolved;
    4 = recovered/resolved with sequelae; 5 = recovering/resolving; 6 = unknown.
(2) Action taken with study drug: 1 = dose increased; 2 = dose not changed;
    3 = dose reduced; 4 = drug interrupted; 5 = drug withdrawn; 6 = not applicable;
    7 = unknown.
*  Study day derived from imputed onset date.
** Duration derived from imputed onset date and/or end date.
Experimental use!

WebR is a tool allowing you to run R code in the web browser. Modify the code below and click run to see the results. Alternatively, copy the code and click here to open WebR in a new tab.

Code
library(dplyr)
library(rlistings)
library(lubridate)

adae <- random.cdisc.data::cadae

adae_anl <- adae %>%
  filter(SAFFL == "Y") %>%
  mutate(
    DHM = as.period(LDOSEDTM %--% ASTDTM),
    TMOM = minute(DHM) + ifelse(second(DHM) >= 30, 1, 0),
    TMOH = hour(DHM) + ifelse(TMOM == 60, 1, 0),
    TMOD = day(DHM) + ifelse(TMOH == 24, 1, 0)
  ) %>%
  mutate(
    TMOM = TMOM %% 60,
    TMOH = TMOH %% 24
  )

out <- adae_anl %>%
  mutate(
    ADURN = AENDY - ASTDY + 1,
    cent_subj = paste(SITEID, SUBJID, sep = "/"),
    ASR = paste(AGE, SEX, RACE, sep = "/"),
    AESER_F = if_else(AESER == "Y", "Yes", "No", ""),
    AEREL_F = if_else(AEREL == "Y", "Yes", "No", ""),
    AECONTRT_F = if_else(AECONTRT == "Y", "Yes", "No", ""),
    AEOUT_F = case_when(
      AEOUT == "FATAL" ~ 1,
      AEOUT == "NOT RECOVERED/NOT RESOLVED" ~ 2,
      AEOUT == "RECOVERED/RESOLVED" ~ 3,
      AEOUT == "RECOVERED/RESOLVED WITH SEQUELAE" ~ 4,
      AEOUT == "RECOVERING/RESOLVING" ~ 5,
      AEOUT == "UNKNOWN" ~ 6
    ),
    AEACN_F = case_when(
      AEACN == "DOSE INCREASED" ~ 1,
      AEACN == "DOSE NOT CHANGED" ~ 2,
      AEACN == "DOSE REDUCED" | AEACN == "DOSE RATE REDUCED" ~ 3,
      AEACN == "DRUG INTERRUPTED" ~ 4,
      AEACN == "DRUG WITHDRAWN" ~ 5,
      AEACN == "NOT APPLICABLE" | AEACN == "NOT EVALUABLE" ~ 6,
      AEACN == "UNKNOWN" ~ 7
    )
  ) %>%
  select(
    cent_subj, ASR, TRT01A, AEDECOD, ASTDY, TMOD, TMOH, TMOM,
    ADURN, AESER_F, AESEV, AEREL_F, AEOUT_F, AECONTRT_F, AEACN_F
  )

out <- out %>% var_relabel(
  cent_subj  = "Center/Patient ID",
  ASR        = "Age/Sex/Race",
  TRT01A     = "Treatment",
  AEDECOD    = "Adverse\nEvent MedDRA\nPreferred Term",
  ASTDY      = "Study\nDay of\nOnset",
  TMOD       = "Time from\nLast Dose\nto Onset\ndays",
  TMOH       = "Time from\nLast Dose\nto Onset\nhrs",
  TMOM       = "Time from\nLast Dose\nto Onset\nmins",
  ADURN      = "AE\nDuration\nin Days",
  AESER_F    = "Serious",
  AESEV      = "Most\nExtreme\nIntensity",
  AEREL_F    = "Caused by\nStudy\nDrug",
  AEOUT_F    = "Outcome\n(1)",
  AECONTRT_F = "Treatment\nfor AE",
  AEACN_F    = "Action\nTaken\n(2)"
)

Reproducibility

Timestamp

[1] "2025-07-09 17:36:43 UTC"

Session Info

─ Session info ───────────────────────────────────────────────────────────────
 setting  value
 version  R version 4.5.0 (2025-04-11)
 os       Ubuntu 24.04.2 LTS
 system   x86_64, linux-gnu
 ui       X11
 language (EN)
 collate  en_US.UTF-8
 ctype    en_US.UTF-8
 tz       Etc/UTC
 date     2025-07-09
 pandoc   3.7.0.2 @ /usr/bin/ (via rmarkdown)
 quarto   1.7.32 @ /usr/local/bin/quarto

─ Packages ───────────────────────────────────────────────────────────────────
 package           * version date (UTC) lib source
 backports           1.5.0   2024-05-23 [1] RSPM
 brio                1.1.5   2024-04-24 [1] RSPM
 checkmate           2.3.2   2024-07-29 [1] RSPM
 cli                 3.6.5   2025-04-23 [1] RSPM
 codetools           0.2-20  2024-03-31 [2] CRAN (R 4.5.0)
 curl                6.4.0   2025-06-22 [1] RSPM
 digest              0.6.37  2024-08-19 [1] RSPM
 dplyr             * 1.1.4   2023-11-17 [1] RSPM
 evaluate            1.0.4   2025-06-18 [1] RSPM
 fastmap             1.2.0   2024-05-15 [1] RSPM
 formatters        * 0.5.11  2025-04-09 [1] RSPM
 generics            0.1.4   2025-05-09 [1] RSPM
 glue                1.8.0   2024-09-30 [1] RSPM
 htmltools           0.5.8.1 2024-04-04 [1] RSPM
 htmlwidgets         1.6.4   2023-12-06 [1] RSPM
 jsonlite            2.0.0   2025-03-27 [1] RSPM
 knitr               1.50    2025-03-16 [1] RSPM
 lifecycle           1.0.4   2023-11-07 [1] RSPM
 lubridate         * 1.9.4   2024-12-08 [1] RSPM
 magrittr            2.0.3   2022-03-30 [1] RSPM
 pillar              1.11.0  2025-07-04 [1] RSPM
 pkgcache            2.2.4   2025-05-26 [1] RSPM
 pkgconfig           2.0.3   2019-09-22 [1] RSPM
 processx            3.8.6   2025-02-21 [1] RSPM
 ps                  1.9.1   2025-04-12 [1] RSPM
 R6                  2.6.1   2025-02-15 [1] RSPM
 random.cdisc.data   0.3.16  2024-10-10 [1] RSPM
 rlang               1.1.6   2025-04-11 [1] RSPM
 rlistings         * 0.2.12  2025-06-15 [1] RSPM
 rmarkdown           2.29    2024-11-04 [1] RSPM
 sessioninfo         1.2.3   2025-02-05 [1] any (@1.2.3)
 stringi             1.8.7   2025-03-27 [1] RSPM
 stringr             1.5.1   2023-11-14 [1] RSPM
 testthat            3.2.3   2025-01-13 [1] RSPM
 tibble            * 3.3.0   2025-06-08 [1] RSPM
 tidyselect          1.2.1   2024-03-11 [1] RSPM
 timechange          0.3.0   2024-01-18 [1] RSPM
 vctrs               0.6.5   2023-12-01 [1] RSPM
 withr               3.0.2   2024-10-28 [1] RSPM
 xfun                0.52    2025-04-02 [1] RSPM
 yaml                2.3.10  2024-07-26 [1] RSPM

 [1] /usr/local/lib/R/site-library
 [2] /usr/local/lib/R/library
 [3] /github/home/R/x86_64-pc-linux-gnu-library/4.5
 * ── Packages attached to the search path.

──────────────────────────────────────────────────────────────────────────────

.lock file

Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.

Download

AEL02
AEL03
Source Code
---
title: AEL02_ED
subtitle: Listing of Adverse Events (for Early Development Studies)
---

------------------------------------------------------------------------

{{< include ../../_utils/envir_hook.qmd >}}

```{r setup, echo = FALSE, warning = FALSE, message = FALSE}
library(dplyr)
library(rlistings)
library(lubridate)

adae <- random.cdisc.data::cadae

adae_anl <- adae %>%
  filter(SAFFL == "Y") %>%
  mutate(
    DHM = as.period(LDOSEDTM %--% ASTDTM),
    TMOM = minute(DHM) + ifelse(second(DHM) >= 30, 1, 0),
    TMOH = hour(DHM) + ifelse(TMOM == 60, 1, 0),
    TMOD = day(DHM) + ifelse(TMOH == 24, 1, 0)
  ) %>%
  mutate(
    TMOM = TMOM %% 60,
    TMOH = TMOH %% 24
  )

out <- adae_anl %>%
  mutate(
    ADURN = AENDY - ASTDY + 1,
    cent_subj = paste(SITEID, SUBJID, sep = "/"),
    ASR = paste(AGE, SEX, RACE, sep = "/"),
    AESER_F = if_else(AESER == "Y", "Yes", "No", ""),
    AEREL_F = if_else(AEREL == "Y", "Yes", "No", ""),
    AECONTRT_F = if_else(AECONTRT == "Y", "Yes", "No", ""),
    AEOUT_F = case_when(
      AEOUT == "FATAL" ~ 1,
      AEOUT == "NOT RECOVERED/NOT RESOLVED" ~ 2,
      AEOUT == "RECOVERED/RESOLVED" ~ 3,
      AEOUT == "RECOVERED/RESOLVED WITH SEQUELAE" ~ 4,
      AEOUT == "RECOVERING/RESOLVING" ~ 5,
      AEOUT == "UNKNOWN" ~ 6
    ),
    AEACN_F = case_when(
      AEACN == "DOSE INCREASED" ~ 1,
      AEACN == "DOSE NOT CHANGED" ~ 2,
      AEACN == "DOSE REDUCED" | AEACN == "DOSE RATE REDUCED" ~ 3,
      AEACN == "DRUG INTERRUPTED" ~ 4,
      AEACN == "DRUG WITHDRAWN" ~ 5,
      AEACN == "NOT APPLICABLE" | AEACN == "NOT EVALUABLE" ~ 6,
      AEACN == "UNKNOWN" ~ 7
    )
  ) %>%
  select(
    cent_subj, ASR, TRT01A, AEDECOD, ASTDY, TMOD, TMOH, TMOM,
    ADURN, AESER_F, AESEV, AEREL_F, AEOUT_F, AECONTRT_F, AEACN_F
  )

out <- out %>% var_relabel(
  cent_subj  = "Center/Patient ID",
  ASR        = "Age/Sex/Race",
  TRT01A     = "Treatment",
  AEDECOD    = "Adverse\nEvent MedDRA\nPreferred Term",
  ASTDY      = "Study\nDay of\nOnset",
  TMOD       = "Time from\nLast Dose\nto Onset\ndays",
  TMOH       = "Time from\nLast Dose\nto Onset\nhrs",
  TMOM       = "Time from\nLast Dose\nto Onset\nmins",
  ADURN      = "AE\nDuration\nin Days",
  AESER_F    = "Serious",
  AESEV      = "Most\nExtreme\nIntensity",
  AEREL_F    = "Caused by\nStudy\nDrug",
  AEOUT_F    = "Outcome\n(1)",
  AECONTRT_F = "Treatment\nfor AE",
  AEACN_F    = "Action\nTaken\n(2)"
)
```

```{r include = FALSE}
webr_code_labels <- c("setup")
```

{{< include ../../_utils/webr_no_include.qmd >}}

## Output

:::: panel-tabset
## Standard Listing

::: {.panel-tabset .nav-justified group="webr"}
## {{< fa regular file-lines sm fw >}} Preview

```{r lsting, test = list(lsting = "lsting")}
lsting <- as_listing(
  out,
  key_cols = c("TRT01A", "cent_subj", "ASR"),
  disp_cols = names(out),
  main_title = "Listing of Adverse Events (for early development studies)",
  main_footer = "
(1) Outcome: 1 = fatal; 2 = not recovered/not resolved; 3 = recovered/resolved;
    4 = recovered/resolved with sequelae; 5 = recovering/resolving; 6 = unknown.
(2) Action taken with study drug: 1 = dose increased; 2 = dose not changed;
    3 = dose reduced; 4 = drug interrupted; 5 = drug withdrawn; 6 = not applicable;
    7 = unknown.
*  Study day derived from imputed onset date.
** Duration derived from imputed onset date and/or end date."
)

head(lsting, 20)
```

```{r include = FALSE}
webr_code_labels <- c("lsting")
```

{{< include ../../_utils/webr.qmd >}}
:::

## Data Setup

```{r setup}
#| code-fold: show
```
::::

{{< include ../../_utils/save_results.qmd >}}

{{< include ../../repro.qmd >}}

Made with ❤️ by the NEST Team

  • Edit this page
  • Report an issue
Cookie Preferences