EX <- data.frame(
USUBJID = 1:5,
EXSTDTC = rep("2017-01-01",5),
EXTRT = c(rep("TRT A",2),rep("TRT B",3)),
EXOCCUR = c(".","", "N", "N", "Y"),
EXDOSE = 0:4,
VISIT = "VISIT 1",
stringsAsFactors = FALSE
)
check_ex_exdose_pos_exoccur_no(EX)
check_ex_exdose_pos_exoccur_no(EX, drug = "TRT A")
check_ex_exdose_pos_exoccur_no(EX, drug = "TRT B")
EX$EXDOSE = NULL
check_ex_exdose_pos_exoccur_no(EX)
Run the code above in your browser using DataLab