# Create directory for the data
mypath <- paste0(tempdir(), "/data")
dir.create(mypath)
# Save as .rds
save_data(ants_L1, mypath)
dir(mypath)
# Save as .rds with the name "mydata"
save_data(ants_L1, mypath, name = "mydata")
dir(mypath)
# Save as .csv
save_data(ants_L1, mypath, type = ".csv")
dir(mypath)
if (FALSE) {
# Save multiple datasets
ids <- c("edi.193.5", "edi.303.2", "edi.290.2")
datasets <- lapply(ids, read_data)
save_data(datasets, mypath)
dir(mypath)
}
# Clean up
unlink(mypath, recursive = TRUE)
Run the code above in your browser using DataLab