Nothing
plu_split <- function(x, pattern, ...) {
x <- strsplit(x, pattern, ...)
max_ln <- max(lengths(x))
split <- vapply(
x, function(x) {c(x, character(max_ln - length(x)))}, character(max_ln)
)
matrix(split, ncol = length(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.