Nothing
`transforming.fnc` <-
function(y, fun) {
if (is.function(fun)) {
return(fun(y))
#if (fun == "exp") {
# return(exp(y))
#} else {
# return(plogis(y))
#}
} else
return(y)
}
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.