# Example 1: typical usage
bodcNames2oceNames(c("PSALST01", "TEMPP901", "PRESPR01"))
# Example 2: extend to add new variables
BODC2 <- function(originalNames) {
rval <- bodcNames2oceNames(originalNames, unduplicate = FALSE)
rval[rval == "bowler hat"] <- "hat"
rval[rval == "top hat"] <- "hat"
unduplicateNames(rval)
}
BODC2(c("PSALST01", "TEMPP901", "PRESPR01", "bowler hat", "top hat"))
Run the code above in your browser using DataLab