CM <- data.frame(
USUBJID = c(rep(1,3),rep(2,3),rep(3,3)),
CMTRT = letters[1:9],
CMSTDTC = rep("2017-01-01",9),
CMINDC = c(rep("INDICATION 1",2), rep("indication 2",2),
rep("Prophylaxis",2),rep("PROPHYLACTIC",2),"PROPHYLAXIS FOR XYZ"),
CMPROPH = c(rep("Y",3),rep(NA,2),rep("",2),"NA","."),
CMSPID = "/F:XXX-D:12345-R:123",
stringsAsFactors=FALSE
)
check_cm_cmindc(CM)
check_cm_cmindc(CM,preproc=roche_derive_rave_row)
CM$CMPROPH[7] = "Y"
check_cm_cmindc(CM)
CM$CMSPID = NULL
check_cm_cmindc(CM,preproc=roche_derive_rave_row)
CM$CMPROPH = NULL
check_cm_cmindc(CM)
Run the code above in your browser using DataLab