# Create directory for the tables
mypath <- paste0(tempdir(), "/data")
dir.create(mypath)
# Create a couple inputs to write_tables()
flat <- ants_L0_flat
observation <- create_observation(
L0_flat = flat,
observation_id = "observation_id",
event_id = "event_id",
package_id = "package_id",
location_id = "location_id",
datetime = "datetime",
taxon_id = "taxon_id",
variable_name = "variable_name",
value = "value",
unit = "unit")
observation_ancillary <- create_observation_ancillary(
L0_flat = flat,
observation_id = "observation_id",
variable_name = c("trap.type", "trap.num", "moose.cage"))
# Write tables to file
write_tables(
path = mypath,
observation = observation,
observation_ancillary = observation_ancillary)
dir(mypath)
# Clean up
unlink(mypath, recursive = TRUE)
Run the code above in your browser using DataLab