174 Refactor adcm

NEWS.md

@@ -18,6 +18,7 @@
   `Time to onset of ADA (Weeks)`, and `ADA Duration (Weeks)` to `PARAM` in `adab`.
 * Add `AEWITHFL` variable to `adsl`.
 * Add `ATIREL` variable to `admh`.
+* Add variables `CMSTRTPT`, `CMENRTPT`, `ADURN`, and `ADURU` to `adcm`.
 
 # random.cdisc.data 0.3.13
 

R/radcm.R

@@ -150,7 +150,22 @@ radcm <- function(ADSL, # nolint
     dplyr::mutate(CMDOSFRQ = sample(c(
       "Q4W", "QN", "Q4H", "UNKNOWN", "TWICE",
       "Q4H", "QD", "TID", "4 TIMES PER MONTH"
-    ), dplyr::n(), replace = TRUE))
+    ), dplyr::n(), replace = TRUE)) %>%
+    dplyr::mutate(
+      # use 1 year as reference time point
+      CMSTRTPT = dplyr::case_when(
+        ASTDY <= 365 ~ "BEFORE",
+        ASTDY > 365 ~ "AFTER",
+        is.na(ASTDY) ~ "U"
+      ),
+      CMENRTPT = dplyr::case_when(
+        EOSSTT %in% c("COMPLETED", "DISCONTINUED") ~ "BEFORE",
+        EOSSTT == "ONGOING" ~ "ONGOING",
+        is.na(EOSSTT) ~ "U"
+      ),
+      ADURN = (AENDTM - ASTDTM) / 86400,
+      ADURU = "days"
+    )
 
 
   # Optional WHO coding, which adds more `ATC` paths for randomly selected `CMDECOD`.

inst/metadata/ADCM.yml

@@ -73,3 +73,15 @@ variables:
   CMDOSFRQ:
     label: Dosing Frequency per Interval
     type: factor
+  CMSTRTPT:
+    label: Start Relative to Reference Time Point
+    type: factor
+  CMENRTPT:
+    label: End Relative to Reference Time Point
+    type: factor
+  ADURN:
+    label: Analysis Duration
+    type: integer
+  ADURU:
+    label: Analysis Duration Units
+    type: factor