library(RSclient)
port = 33311:33314
# shutdown any running nodes
l = lapply(setNames(port, port), function(port) tryCatch(RSconnect(port = port), error = function(e) e, warning = function(w) w))
invisible(lapply(l, function(rsc) if(inherits(rsc, "sockconn")) RSshutdown(rsc)))
invisible(TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.