Nothing
library(RCurl)
h = basicTextGatherer()
txt = getURL("http://192.168.0.3", header= TRUE, headerfunction = h[[1]], httpheader = c(Accept="text/html", Duncan="bob"), verbose = TRUE)
read.dcf(textConnection(paste(h$value(NULL)[-1], collapse="")))
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.