TU <- data.frame(
USUBJID = "1001",
TUDTC = "2020-05-05",
VISIT = "C1D1",
TUORRES = 1:10,
TUSPID = "FORMNAME-R:19/L:19XXXX",
TUEVAL = "INVESTIGATOR",
TUTESTCD = "TUMIDENT",
stringsAsFactors = FALSE
)
TU$TUDTC[1]=""
TU$TUDTC[2]="NA"
TU$TUDTC[3]=NA
check_tu_tudtc(TU,preproc=roche_derive_rave_row)
TU$TUEVAL[1]=""
TU$TUTESTCD=NULL
check_tu_tudtc(TU,preproc=roche_derive_rave_row)
TU$TUEVAL[2]="INDEPENDENT ASSESSOR"
TU$TUEVAL[3]="INDEPENDENT ASSESSOR"
TU$TUDTC[4]=""
check_tu_tudtc(TU)
TU$TUSPID=NULL
check_tu_tudtc(TU)
TU$VISIT=NULL
check_tu_tudtc(TU)
Run the code above in your browser using DataLab