library(RcppShark)
td = paste("tmp", round(runif(1)*10000000), sep = "")
RcppShark.package.skeleton(td)
library(devtools)
load_all(td)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.