# NOT RUN {
# 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)
# }
# NOT RUN {
# Cannot remove "core" metadata
locationTbl <-
locationTbl %>%
table_removeColumn("zip")
# }
Run the code above in your browser using DataLab