Nothing
transform2 <- function(`_data`, ...) {
f <- function(){}
formals(f) <- eval(substitute(as.pairlist(c(alist(...), `_data`))))
body(f) <- substitute(modifyList(`_data`, data.frame(...)))
f()
}
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.