##### 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, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.