library(RLLVMCompile)
# create the call foo(1)
f =
function()
{
zz = Rf_allocVector(6L, 2L) # LANGSXP
SETCAR(zz, Rf_install("foo"))
cur = CDR(zz)
SETCAR(cur, Rf_ScalarInteger(1L))
}
fc = compileFunction(f, VoidType, list())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.