# NOT RUN {
library(nprcgenekeepr)
requiredCols <- getRequiredCols()
cols <-
paste0("id,sire,siretype,dam,damtype,sex,numberofparentsknown,birth,",
"arrivalatcenter,death,departure,status,ancestry,fromcenter?,",
"origin")
all(requiredCols %in% checkRequiredCols(cols, reportErrors = TRUE))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab