R/trim.R

In ikkyle/Imisc: Ian's miscellaneous functions

##### trim functions #####
trim <- function (s, recode.factor = TRUE, ...) {
  UseMethod("trim", s)
}


trim.character <- function (s, recode.factor = TRUE, ...) {
  s <- sub(pattern = "^[[:blank:]]+", replacement = "", x = s)
  s <- sub(pattern = "[[:blank:]]+$", replacement = "", x = s)
  s
}

trim.data.frame <- function (s, recode.factor = TRUE, ...) {
  s[] <- trim.list(s, recode.factor = recode.factor, ...)
  s
}

trim.default <- function (s, recode.factor = TRUE, ...) {s}

trim.factor <- function (s, recode.factor = TRUE, ...) {
  levels(s) <- trim(levels(s))
  if (recode.factor) {
    dots <- list(x = s, ...)
    if (is.null(dots$sort)) 
      dots$sort <- sort
    s <- do.call(what = reorder.factor, args = dots)
  }
  s
}

trim.list <- function (s, recode.factor = TRUE, ...) {
  lapply(s, trim, recode.factor = recode.factor, ...) 
}