x <- example_dataset()
# Filter (and therefore change) the dataset
x <- filter_deployments(x, deploymentID == "00a2c20d")
# Write the Camera Trap Data Package to disk
write_camtrapdp(x, directory = "my_directory")
# Check files
list.files("my_directory")
# Clean up (don't do this if you want to keep your files)
unlink("my_directory", recursive = TRUE)
Run the code above in your browser using DataLab