# NOT RUN {
annots <- data.frame(
key = c("fileFormat", "fileFormat"),
value = c("txt", "csv"),
columnType = c("STRING", "STRING"),
stringsAsFactors = FALSE
)
dat <- data.frame(
fileFormat = c("wrong", "txt", "csv", "wrong again"),
stringsAsFactors = FALSE
)
check_values(dat, annots)
# }
Run the code above in your browser using DataLab