if (FALSE) {
meta_data <- prep_create_meta(
VAR_NAMES = c("ID", "SEX", "AGE", "DOE"),
LABEL = c("Pseudo-ID", "Gender", "Age", "Examination Date"),
DATA_TYPE = c(DATA_TYPES$INTEGER, DATA_TYPES$INTEGER, DATA_TYPES$INTEGER,
DATA_TYPES$DATETIME),
MISSING_LIST = ""
)
stopifnot(all(prep_map_labels(c("AGE", "DOE"), meta_data) == c("Age",
"Examination Date")))
}
Run the code above in your browser using DataLab