Correct SERREAS derivation in ael03

book/listings/adverse-events/ael03.qmd

@@ -12,6 +12,7 @@ library(dplyr)
 library(rlistings)
 
 adae <- random.cdisc.data::cadae
+adae$AESCONG[which(adae$AESER == "Y")[seq(3)]] <- "Y" # To mimick correct possibility of overlap
 
 out <- adae %>%
   filter(AESER == "Y") %>%
@@ -38,17 +39,23 @@ out <- adae %>%
       AEACN == "DRUG WITHDRAWN" ~ 5,
       AEACN == "NOT APPLICABLE" | AEACN == "NOT EVALUABLE" ~ 6,
       AEACN == "UNKNOWN" ~ 7
-    ),
-    SERREAS = case_when(
-      AESDTH == "Y" ~ "1",
-      AESLIFE == "Y" ~ "2",
-      AESHOSP == "Y" ~ "3",
-      AESDISAB == "Y" ~ "4",
-      AESCONG == "Y" ~ "5",
-      AESMIE == "Y" ~ "6",
-      TRUE ~ " "
     )
   ) %>%
+  rowwise() %>%
+  mutate(
+    SERREAS = paste(
+      which(
+        c(AESDTH, AESLIFE, AESHOSP, AESDISAB, AESCONG, AESMIE) == "Y"
+      ),
+      collapse = ", "
+    )
+  ) %>%
+  ungroup()
+
+# Check correct derivation of SERREAS
+# out |> select(AESDTH, AESLIFE, AESHOSP, AESDISAB, AESCONG, AESMIE, SERREAS)
+
+out <- out %>%
   select(CPID, ASR, TRT01A, AEDECOD, Date_First, ASTDY, Duration, AESEV, Related, Outcome, Treated, Action, SERREAS)
 
 var_labels(out) <- c(
@@ -106,6 +113,7 @@ lsting <- as_listing(
 head(lsting, 20)
 ```
 
+
 ```{r include = FALSE}
 webr_code_labels <- c("lsting")
 ```
@@ -118,6 +126,7 @@ webr_code_labels <- c("lsting")
 ```{r setup}
 #| code-fold: show
 ```
+
 ::::
 
 {{< include ../../_utils/save_results.qmd >}}