if (FALSE) {
# Write a set of ecocomDP tables to file for validation
mydir <- paste0(tempdir(), "/dataset")
dir.create(mydir)
write_tables(
path = mydir,
observation = ants_L1$tables$observation,
observation_ancillary = ants_L1$tables$observation_ancillary,
location = ants_L1$tables$location,
location_ancillary = ants_L1$tables$location_ancillary,
taxon = ants_L1$tables$taxon,
taxon_ancillary = ants_L1$tables$taxon_ancillary,
dataset_summary = ants_L1$tables$dataset_summary,
variable_mapping = ants_L1$tables$variable_mapping)
# Validate
validate_data(path = mydir)
# Clean up
unlink(mydir, recursive = TRUE)
}
Run the code above in your browser using DataLab