R/trimws.R

In gtools: Various R Programming Tools

## trimws was added in R 2.3.0.  If we're using a previous version of
## R we need to define it.
if (!exists("trimws", mode = "function")) {
  trimws <- function(s) {
    s <- sub(pattern = "^[[:blank:]]+", replacement = "", x = s)
    s <- sub(pattern = "[[:blank:]]+$", replacement = "", x = s)
    s
  }
}