PR <- data.frame(
USUBJID = 1:3,
PRTRT = c("Surgery Name","Procedure Name","Procedure"),
PRSTDTC = c("2017-01-01","2017---01","2017-01-02"),
PRENDTC = c("2017-02-01","2017-03-01","2017---01"),
PRSPID = "/F:SURG-D:12345-R:1",
PRCAT = "Form 1",
stringsAsFactors=FALSE
)
check_pr_missing_month(PR)
check_pr_missing_month(PR,preproc=roche_derive_rave_row)
PR$PRENDTC = NULL
check_pr_missing_month(PR)
Run the code above in your browser using DataLab