# the Galapagos census was downloaded from
# when converting the original DIC to DICX in REDATAM 7:
# 2. it adds MISSING and NOTAPPLICABLE to the labels
# 3. it creates problems with lower and upper case (e.g., CG150001.ptr and
zip <- system.file("extdata", "uru2011mini.zip", package = "redatam")
dout <- paste(tempdir(), "uru2011mini", sep = "/")
dic <- list.files(dout, pattern = "\\.dic$", full.names = TRUE,
dicx <- list.files(dout, pattern = "\\.dicx$", full.names = TRUE,
file.copy(dic, gsub("\\.dic$", ".DIC", dic), overwrite = TRUE)
res3 <- read_redatam(gsub("\\.dic$", ".DIC", dic))