RS <- data.frame(
USUBJID = 1:10,
RSDTC = 1:10,
RSORRES = "THING",
VISIT = "C1D1",
RSSTAT = 1:10,
RSEVAL = c("NA","","IRF","investigator",rep("INVESTIGATOR",6)),
stringsAsFactors=FALSE
)
RS$RSDTC[1]=""
RS$RSDTC[2]="NA"
RS$RSDTC[3]=NA
RS$VISIT[3]=""
RS$VISIT[4]="NA"
RS$VISIT[5]=NA
check_rs_rsdtc_visit(RS)
RS$RSORRES[1]=""
check_rs_rsdtc_visit(RS)
RS$RSORRES[4] = "THING 1"
RS$RSORRES[5] = "THING 2"
check_rs_rsdtc_visit(RS)
Run the code above in your browser using DataLab