diff --git a/R/date_cut.R b/R/date_cut.R index 6f3e58c..a2bdb40 100644 --- 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 index 3c4b3bf..b854373 100644 --- 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)