DS <- data.frame(STUDYID = rep(1, 5),
USUBJID = c(1, 1, 1, 2, 3),
DSDECOD = c("DEATH", "DEATH", rep("", 3)),
DSSCAT = LETTERS[1:5],
DSSTDTC = c("", "2016-01-01", "", "", "2016-01-02"),
stringsAsFactors = FALSE)
check_ds_dsdecod_dsstdtc(DS)
DS$DSSTDTC[2] <- ""
check_ds_dsdecod_dsstdtc(DS)
Run the code above in your browser using DataLab