LB <- data.frame(
USUBJID = c("Patient 1","Patient 2","Patient 3"),
LBTEST = "Test A",
LBDTC = "2017-01-01",
LBORRES = c("5","3","7"),
LBORRESU = rep("mg",3),
LBSTRESC = c("5","3","7"),
LBSTRESN = c(5,3,7),
stringsAsFactors = FALSE
)
check_lb_lbstresc_char(LB)
LB <- data.frame(
USUBJID = c("Patient 1","Patient 2","Patient 3"),
LBTEST = rep("Test A", 3),
LBDTC = "2017-01-01",
LBORRES = c("5","3","<7"),
LBORRESU = rep("mg",3),
LBSTRESC = c("5","3","<7"),
LBSTRESN = c(5,3,NA),
stringsAsFactors = FALSE
)
check_lb_lbstresc_char(LB)
LB <- data.frame(
USUBJID = c("Patient 1","Patient 2","Patient 3"),
LBTEST = rep("Test A", 3),
LBDTC = rep("2017-01-01", 3),
LBORRES = c("5","BLQ","<7"),
LBORRESU = rep("mg",3),
LBSTRESC = c("5","BLQ","<7"),
LBSTRESN = c(5,NA,NA),
stringsAsFactors = FALSE
)
check_lb_lbstresc_char(LB)
Run the code above in your browser using DataLab