Updating warning message.

pharmaverse · Oct 11, 2023 · 9f61f8d · 9f61f8d
1 parent 85871b1
commit 9f61f8d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/R/date_cut.R b/R/date_cut.R
@@ -65,8 +65,7 @@ date_cut <- function(dataset_sdtm,
     msg = "Duplicate patients in the DCUT (dataset_cut) dataset, please update."
   )
   ifelse(any(is.na(mutate(dataset_cut, !!cut_var))) == TRUE,
-    print("At least one patient with missing datacut date (cut_var) in the DCUT
-               (dataset_cut) dataset, all records for this/these patient(s) will be kept."), NA
+    print("At least 1 patient with missing datacut date, all records will be kept."), NA
   )
 
   dcut <- dataset_cut %>%

diff --git a/R/special_dm_cut.R b/R/special_dm_cut.R
@@ -49,8 +49,7 @@ special_dm_cut <- function(dataset_dm,
     msg = "Duplicate patients in the DCUT (dataset_cut) dataset, please update."
   )
   ifelse(any(is.na(mutate(dataset_cut, !!cut_var))) == TRUE,
-    print("At least one patient with missing datacut date (cut_var) in the DCUT
-               (dataset_cut) dataset, all records for this/these patient(s) will be kept."), NA
+    print("At least 1 patient with missing datacut date, all records will be kept."), NA
   )
   assert_data_frame(dataset_dm,
     required_vars = exprs(USUBJID, DTHDTC)