R/check_ex_exstdtc_after_dd.R
check_ex_exstdtc_after_dd.Rd
This check looks for EX dates that occur after death date
check_ex_exstdtc_after_dd(AE, DS, EX)
Adverse Event SDTM dataset with variables USUBJID, AEDTHDTC, AESTDTC, AEDECOD, and AETERM
Disposition SDTM dataset with variables USUBJID, DSSTDTC, DSDECOD, and DSTERM
Exposure SDTM dataset with variables USUBJID, EXSTDTC, EXTRT, and EXDOSE
Boolean value for whether the check passed or failed, with 'msg' attribute if the check failed
AE <- data.frame(STUDYID = 1:5, USUBJID = LETTERS[1:5],
AEDTHDTC = c(rep("", 4), "2016-01-01"),
AESTDTC = rep("2016-01-01", 5),
AEDECOD = LETTERS[1:5], AETERM = LETTERS[1:5],
stringsAsFactors = FALSE)
DS <- data.frame(STUDYID = 1:5, USUBJID = LETTERS[1:5],
DSSTDTC = rep("2016-01-02", 5),
DSDECOD = c(LETTERS[1:4], "death"),
DSTERM = letters[1:5],
stringsAsFactors = FALSE)
EX <- data.frame(STUDYID = 1:5, USUBJID = LETTERS[1:5],
EXSTDTC = rep("2015-12-31", 5),
EXTRT = LETTERS[1:5],
EXDOSE = 1:5,
stringsAsFactors = FALSE)
check_ex_exstdtc_after_dd(AE, DS, EX)
#> [1] TRUE
EX$EXSTDTC[1] <- "2016-01-03"
EX$USUBJID[1] <- EX$USUBJID[5]
check_ex_exstdtc_after_dd(AE, DS, EX)
#> [1] FALSE
#> attr(,"msg")
#> [1] "Patient(s) with EX occurring after death date. "
#> attr(,"data")
#> USUBJID EXSTDTC AEDTHDTC DSSTDTC EARLIEST_DTHDTC
#> 1 E 2016-01-03 2016-01-01 2016-01-02 2016-01-01