Nothing
rewrap <- function(f, x, ...) {
res <- f(unclass(x), ...)
class(res) <- c("chars", "character")
res
}
rewrap_xy <- function(f, x, y, ...) {
res <- f(unclass(x), unclass(y), ...)
class(res) <- c("chars", "character")
res
}
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.