Nothing
##' Trim space of a string.
##'
##' @title Trim space of a string.
##' @param string A character vector.
##' @param side Which side of the string to be trimed, 'both', 'left' or 'right'.
##' @return Trimed vector.
##' @author Jian Li <\email{rweibo@@sina.com}>
##' @keywords string
##' @examples
##' strstrip(c("\taaaa ", " bbbb "))
##'
##'
strstrip <- function(string, side = c("both", "left", "right")) {
string <- .verifyChar(string)
side <- match.arg(side)
pattern <- switch(side, left = "^\\s+", right = "\\s+$", both = "^\\s+|\\s+$")
OUT <- gsub(pattern, "", string)
return(OUT)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.