Merge pull request #121 from pharmaverse/120_cm_CMENRTPT

Closes #120 add CMENRTPT

Author: manciniedoardo

NEWS.md

@@ -4,6 +4,8 @@
 
 - Pediatrics data for anthropometric measures (`dm_peds` and `vs_peds`) was added (#88).
 
+- Add `CMENRTPT` to `cm`. (#120)
+
 <details>
 <summary>Developer Notes</summary>
 

data-raw/cm.R

@@ -4,10 +4,12 @@
 # Load libraries -----
 library(haven)
 library(admiral)
+library(dplyr)
 
 # Create cm ----
 raw_cm <- read_xpt("https://github.com/cdisc-org/sdtm-adam-pilot-project/blob/master/updated-pilot-submission-package/900172/m5/datasets/cdiscpilot01/tabulations/sdtm/cm.xpt?raw=true") # nolint
-cm <- convert_blanks_to_na(raw_cm)
+cm <- convert_blanks_to_na(raw_cm) %>%
+  mutate(CMENRTPT = if_else(is.na(CMENDTC), "ONGOING", NA_character_))
 
 # Label dataset ----
 attr(cm, "label") <- "Concomitant Medications"