Merge pull request #220 from pharmaverse/219-feature-request-add-visitdy-to-pc

Closes #219 add VISITDY to PC

Author: Lina2689

NEWS.md

@@ -2,6 +2,8 @@
 
 ## New Features
 
+- Added `VISITDY` in `pc`. (#219)
+
 - Updated QSTESTCD in `qs_ophtha` to be consistent with CDISC terminology. Also reduced the number of records for ease of use. (#172)
 
 - Added BRTHDTC in `dm` and `dm_metabolic`. (#195)

R/pc.R

@@ -10,7 +10,7 @@
 #' @keywords dataset generic
 #' @description A SDTM PC dataset simulated by Antonio Rodriguez Contesti
 #' @docType data
-#' @format A data frame with 20 columns:
+#' @format A data frame with 21 columns:
 #'   \describe{
 #'     \item{STUDYID}{Study Identifier}
 #'     \item{DOMAIN}{Domain Abbreviation}
@@ -28,6 +28,7 @@
 #'     \item{PCLLOQ}{Lower Limit of Quantitation}
 #'     \item{VISIT}{Visit Name}
 #'     \item{VISITNUM}{Visit Number}
+#'     \item{VISITDY}{Planned Study Day of Visit}
 #'     \item{PCDTC}{Date/Time of Specimen Collection}
 #'     \item{PCDY}{Actual Study Day of Specimen Collection}
 #'     \item{PCTPT}{Planned Time Point Name}

data-raw/pc.R

@@ -150,7 +150,8 @@ PC <- PC %>%
 PC <- subset(PC, select = c(
   "STUDYID", "DOMAIN", "USUBJID", "PCSEQ", "PCTESTCD", "PCTEST",
   "PCORRES", "PCORRESU", "PCSTRESC", "PCSTRESN", "PCSTRESU",
-  "PCNAM", "PCSPEC", "PCLLOQ", "VISIT", "VISITNUM", "PCDTC", "PCDY", "PCTPT", "PCTPTNUM"
+  "PCNAM", "PCSPEC", "PCLLOQ", "VISIT", "VISITNUM", "VISITDY",
+  "PCDTC", "PCDY", "PCTPT", "PCTPTNUM"
 ))
 
 ## Ungroup and sort ----
@@ -177,6 +178,7 @@ pc <- pc %>%
     PCLLOQ = "Lower Limit of Quantitation",
     VISIT = "Visit Name",
     VISITNUM = "Visit Number",
+    VISITDY = "Planned Study Day of Visit",
     PCDTC = "Date/Time of Specimen Collection",
     PCDY = "Actual Study Day of Specimen Collection",
     PCTPT = "Planned Time Point Name",