# NOT RUN {
# Set the directory for saving location tables
setLocationDataDir(tempdir())
# Load an example table and check the dimensions
locationTbl <- get(data("wa_monitors_500"))
dim(locationTbl)
# Save it as "table_save_example"
table_save(locationTbl, "table_save_example")
# Add a column and save again
locationTbl %>%
table_addColumn("my_column") %>%
table_save(locationTbl, "table_save_example")
# Check the locationDataDir
list.files(getLocationDataDir(), pattern = "table_save_example")
# }
Run the code above in your browser using DataLab