Nothing
###-----------------------------------------------------------------------------
###
### split.string - split string at pattern
###
###
split.string <- function (x, separator, trim.blank = TRUE, remove.empty = TRUE) {
pos <- gregexpr (separator, x)
if (length (pos) == 1 && pos [[1]] == -1)
return (x)
pos <- pos [[1]]
pos <- matrix (c (1, pos + attr (pos, "match.length"),
pos - 1, nchar (x)),
ncol = 2)
if (pos [nrow (pos), 1] > nchar (x))
pos <- pos [- nrow (pos), ]
x <- apply (pos, 1, function (p, x) substr (x, p [1], p [2]), x)
if (trim.blank){
blank.pattern <- "^[[:blank:]]*([^[:blank:]]+.*[^[:blank:]]+)[[:blank:]]*$"
x <- sub (blank.pattern, "\\1", x)
}
if (remove.empty){
x <- x [sapply (x, nchar) > 0]
}
x
}
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.