# 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_load_example"
table_save(locationTbl, "table_load_example")
# Load it and check the dimensions
my_table <- table_load("table_load_example")
dim(my_table)
# Check the locationDataDir
list.files(getLocationDataDir(), pattern = "table_load_example")
# }
Run the code above in your browser using DataLab