Nothing
as.WebResult <- function(x, ...) UseMethod("as.WebResult")
as.WebResult.WebResult <- function(x, ...) x
as.WebResult.default <- function(x, ...)
WebResult("html", paste(as.character(x), collapse='\n'))
WebResult <- function(cmd="html", payload="", content.type="text/html; charset=utf-8", headers=character(0))
structure(c(cmd, paste(as.character(payload), collapse="\n"), content.type, paste(c(as.character(.e$headers), as.character(headers)),collapse="\r\n")), class="WebResult")
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.