Nothing
PingAPI <- function(MyKey=NULL) {
web <- "http://eol.org/api/ping.xml"
if(!is.null(MyKey))
web <- paste(web, "?key=", MyKey, sep="")
a <- getURL(web)
xmlToList(xmlRoot(xmlParse(a, getDTD=FALSE)))$message
}
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.