trim <- function(s, recode.factor=TRUE, ...)
UseMethod("trim", s)
trim.default <- function(s, recode.factor=TRUE, ...)
s
trim.character <- function(s, recode.factor=TRUE, ...)
{
s <- sub(pattern="^[[:blank:]]+", replacement="", x=s)
s <- sub(pattern="[[:blank:]]+$", replacement="", x=s)
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, ...)
trim.data.frame <- function(s, recode.factor=TRUE, ...)
{
s[] <- trim.list(s, recode.factor=recode.factor, ...)
s
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.