library(R2llvm)
library(rstatic)
library(RTypeInference)
f =
function()
{
x = 2L
x
}
cfg = to_cfg(f)
types = infer_types(cfg)
#m = compile_cfg(f)
fc = compileFunction(f)
stopifnot(identical(.llvm(fc), 2L))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.