MI <- data.frame(
USUBJID = c("1","2", "3"),
DOMAIN = "MI",
MISEQ = c(1, 2, 1),
MISPEC = c("","BLOCK SLIDE",NA),
MITESTCD = "TESTCD1",
MIDTC = "2020-01-01",
stringAsFactors = FALSE
)
check_mi_mispec(MI)
## No errors, MISPEC values present
MI2 <- data.frame(
USUBJID = c("1","2", "3"),
DOMAIN = "MI",
MISEQ = 1,
MISPEC = c("SLIDE", "TUMOR TISSUE", "BLOCK SLIDE"),
MITESTCD = "TESTCD1",
MIDTC = "",
stringsAsFactors = FALSE
)
check_mi_mispec(MI2)
Run the code above in your browser using DataLab