1 | trimspaces(x, which = c("both", "left", "right"), whitespace = "[ \t\r\n]")
|
x |
|
which |
|
whitespace |
1 2 3 4 5 6 7 8 9 10 11 12 13 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (x, which = c("both", "left", "right"), whitespace = "[ \t\r\n]")
{
which <- match.arg(which)
mysub <- function(re, x) sub(re, "", x, perl = TRUE)
switch(which, left = mysub(paste0("^", whitespace, "+"),
x), right = mysub(paste0(whitespace, "+$"), x), both = mysub(paste0(whitespace,
"+$"), mysub(paste0("^", whitespace, "+"), x)))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.