---
title: DSL02
subtitle: Listing of Patients Who Discontinued Early from Study
---
------------------------------------------------------------------------
{{< include ../../_utils/envir_hook.qmd >}}
```{r setup, echo = FALSE, warning = FALSE, message = FALSE}
library(dplyr)
library(rlistings)
adsl <- random.cdisc.data::cadsl
out <- adsl %>%
filter(AEWITHFL == "Y") %>%
mutate(
ID = paste(SITEID, SUBJID, sep = "/"),
ASR = paste(AGE, SEX, RACE, sep = "/"),
DISCONT = ifelse(!is.na(DCSREAS) & EOSSTT != "COMPLETED", "Yes", "No"),
SSADTM = as.POSIXct(
strftime(TRTSDTM, format = "%Y-%m-%d %H:%M:%S"),
format = "%Y-%m-%d",
tz = "UTC"
),
SSAEDY = as.numeric(ceiling(difftime(EOSDT, SSADTM, units = "days"))),
RANDEDY = as.numeric(ceiling(difftime(EOSDT, RANDDT, units = "days"))),
) %>%
filter(DISCONT == "Yes") %>%
select(ID, ASR, TRT01A, SSADTM, EOSDY, SSAEDY, RANDEDY, DCSREAS)
var_labels(out) <- c(
ID = "Center/Patient ID",
ASR = "Age/Sex/Race",
TRT01A = "Treatment",
SSADTM = "Date of First\nStudy Drug\nAdministration",
EOSDY = "Day of Last\nStudy Drug\nAdministration",
SSAEDY = "Day of Study\nDiscontinuation\nRelative to First\nStudy Drug\nAdministration",
RANDEDY = "Day of Study\nDiscontinuation\nRelative to\nRandomization",
DCSREAS = "Reason for\nDiscontinuation"
)
```
```{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 = "TRT01A",
disp_cols = names(out),
main_title = "Listing of Patients Who Discontinued Early from Study"
)
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 >}}