Nothing
library(RCurl)
url = "http://www.omegahat.net/Rcartogram/demo.jpg"
header = RCurl:::basicTextGatherer()
ans = try(getBinaryURL(url, headerfunction = header$update))
url = "http://eeyore.ucdavis.edu/stat141/data/Elections/NYExitData.rda"
header = RCurl:::basicTextGatherer()
ans = try(getBinaryURL(url, headerfunction = header$update))
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.