Closes #2546 Updating ABLFL to Null if not "Y" in derive_var_base()…

… example
pharmaverse · Nov 11, 2024 · 0ba446c · 0ba446c
1 parent 0cd7689
commit 0ba446c
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 26 deletions.
diff --git a/R/derive_var_base.R b/R/derive_var_base.R
@@ -43,19 +43,19 @@
 #' library(tibble)
 #'
 #' dataset <- tribble(
-#'   ~STUDYID, ~USUBJID,   ~PARAMCD, ~AVAL,   ~AVALC,      ~AVISIT, ~ABLFL,  ~ANRIND,
-#'   "TEST01",  "PAT01",  "PARAM01", 10.12,       NA,   "Baseline",    "Y", "NORMAL",
-#'   "TEST01",  "PAT01",  "PARAM01", 9.700,       NA,      "Day 7",    "N",    "LOW",
-#'   "TEST01",  "PAT01",  "PARAM01", 15.01,       NA,     "Day 14",    "N",   "HIGH",
-#'   "TEST01",  "PAT01",  "PARAM02", 8.350,       NA,   "Baseline",    "Y",    "LOW",
-#'   "TEST01",  "PAT01",  "PARAM02",    NA,       NA,      "Day 7",    "N",       NA,
-#'   "TEST01",  "PAT01",  "PARAM02", 8.350,       NA,     "Day 14",    "N",    "LOW",
-#'   "TEST01",  "PAT01",  "PARAM03",    NA,    "LOW",   "Baseline",    "Y",       NA,
-#'   "TEST01",  "PAT01",  "PARAM03",    NA,    "LOW",      "Day 7",    "N",       NA,
-#'   "TEST01",  "PAT01",  "PARAM03",    NA, "MEDIUM",     "Day 14",    "N",       NA,
-#'   "TEST01",  "PAT01",  "PARAM04",    NA,   "HIGH",   "Baseline",    "Y",       NA,
-#'   "TEST01",  "PAT01",  "PARAM04",    NA,   "HIGH",      "Day 7",    "N",       NA,
-#'   "TEST01",  "PAT01",  "PARAM04",    NA, "MEDIUM",     "Day 14",    "N",       NA
+#'   ~STUDYID, ~USUBJID, ~PARAMCD, ~AVAL, ~AVALC, ~AVISIT, ~ABLFL, ~ANRIND,
+#'   "TEST01", "PAT01", "PARAM01", 10.12, NA,      "Baseline", "Y", "NORMAL",
+#'   "TEST01", "PAT01", "PARAM01", 9.700, NA,      "Day 7", NA_character_, "LOW",
+#'   "TEST01", "PAT01", "PARAM01", 15.01, NA,      "Day 14", NA_character_, "HIGH",
+#'   "TEST01", "PAT01", "PARAM02", 8.350, NA,      "Baseline", "Y", "LOW",
+#'   "TEST01", "PAT01", "PARAM02", NA,    NA,      "Day 7", NA_character_, NA,
+#'   "TEST01", "PAT01", "PARAM02", 8.350, NA,      "Day 14", NA_character_, "LOW",
+#'   "TEST01", "PAT01", "PARAM03", NA,    "LOW",   "Baseline", "Y", NA,
+#'   "TEST01", "PAT01", "PARAM03", NA,    "LOW",   "Day 7", NA_character_, NA,
+#'   "TEST01", "PAT01", "PARAM03", NA,    "MEDIUM", "Day 14", NA_character_, NA,
+#'   "TEST01", "PAT01", "PARAM04", NA,    "HIGH",  "Baseline", "Y", NA,
+#'   "TEST01", "PAT01", "PARAM04", NA,    "HIGH",  "Day 7", NA_character_, NA,
+#'   "TEST01", "PAT01", "PARAM04", NA,    "MEDIUM", "Day 14", NA_character_, NA
 #' )
 #'
 #' ## Derive `BASE` variable from `AVAL`

diff --git a/man/derive_var_base.Rd b/man/derive_var_base.Rd