LB <- data.frame(
USUBJID = c("Patient 1","Patient 2","Patient 3"),
LBTEST = "Test A",
LBTESTCD = "TA",
LBDTC = "2017-01-01",
LBORRES = c("5","6","7"),
LBSTRESC = c("5","6","7"),
LBORRESU = rep("mg",3),
LBSTRESN = c(5,6,NA),
stringsAsFactors=FALSE
)
check_lb_lbstresn_missing(LB)
LB$LBSTRESC[3] = ""
check_lb_lbstresn_missing(LB)
LB$LBSTRESC[1] = ""
check_lb_lbstresn_missing(LB)
LB$VISIT = "SCREENING"
check_lb_lbstresn_missing(LB)
LB$LBSPID= "FORMNAME-R:2/L:2XXXX"
check_lb_lbstresn_missing(LB,preproc=roche_derive_rave_row)
LB$LBSTRESN = NULL
check_lb_lbstresn_missing(LB)
LB$LBSTRESC = NULL
check_lb_lbstresn_missing(LB)
Run the code above in your browser using DataLab