library(SpiderMonkey)
myscript = "document.getElementById('jsc').innerHTML='Javascript says R says hello.';"
myval = jsVal()
JS <- EvaluateScript(ScriptCon, JS_GetGlobalObject(ScriptCon),
myscript, nchar(myscript), "R", 0, myval)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.