library(MazamaLocationUtils)
# Starting table
locationTbl <- get(data("wa_monitors_500"))
names(locationTbl)
# Add a new column
locationTbl <-
locationTbl %>%
table_addColumn("siteName")
names(locationTbl)
# Now remove it
locationTbl <-
locationTbl %>%
table_removeColumn("siteName")
names(locationTbl)
try({
# Cannot remove "core" metadata
locationTbl <-
locationTbl %>%
table_removeColumn("zip")
}, silent = FALSE)
Run the code above in your browser using DataLab