Nothing
library(RcppShark)
td = paste("tmp", round(runif(1)*10000000), sep = "")
RcppShark.package.skeleton(td)
library(devtools)
load_all(td)
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.