Check for missing EXDOSU records

This check looks for missing EXODOSU values for valid doses

check_ex_exdosu(EX)

Arguments

EX

Exposure SDTM dataset with variables USUBJID,EXTRT,EXSTDTC,EXDOSU

Value

boolean value if check failed or passed with 'msg' attribute if the test failed

Author

Jen Chen

Examples

EX <- data.frame(
 USUBJID = 1:10,
 EXTRT = 1:10,
 EXSTDTC = 1:10,
 EXDOSE = 1:10,
 EXOCCUR = as.character(c(rep("Y",5),rep("N",5))),
 EXDOSU = as.character(rep("mg",10))
)

EX$EXDOSU[1] = ""
EX$EXDOSU[2] = "NA"
EX$EXDOSU[3] = NA

check_ex_exdosu(EX)
#> [1] FALSE
#> attr(,"msg")
#> [1] "There are 3 records with missing dose units. "
#> attr(,"data")
#>   USUBJID EXTRT EXDOSE EXSTDTC EXDOSU
#> 1       1     1      1       1       
#> 2       2     2      2       2     NA
#> 3       3     3      3       3   <NA>

EX$EXSTDTC = NULL

check_ex_exdosu(EX)
#> [1] FALSE
#> attr(,"msg")
#> [1] "EX is missing the variable: EXSTDTC"