Nothing
httpget_file <- function(fullpath){
fullpath <- do.call("file.path", as.list(fullpath));
res$checkfile(fullpath);
#only GET/POST allowed
res$checkmethod(c("GET", "POST"));
switch(req$method(),
"GET" = res$sendfile(fullpath),
"POST" = execute_file(fullpath),
stop("invalid method: ", req$method())
);
}
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.