LB <- data.frame(
USUBJID = 1:4,
LBTEST = c("TEST1","TEST2","TEST3","TEST3"),
LBDTC = c("2017-01-01","2017-02-01","2017---01", "2017----01"),
VISIT = c("VISIT1","VISIT2","VISIT3","VISIT3"),
stringsAsFactors=FALSE
)
check_lb_missing_month(LB)
LB$LBSPID= "FORMNAME-R:2/L:2XXXX"
check_lb_missing_month(LB,preproc=roche_derive_rave_row)
LB$LBDTC = NULL
check_lb_missing_month(LB)
Run the code above in your browser using DataLab