makeRFunction =
#
# Create an R function that wraps an LLVM function in a module.
#
# Should perform the coercion from R values to their target types.
# Already done by run/.llvm function (?)
#
# See if we can deal with default values.
#
function(func, .ee = ExecutionEngine(as(func, "Module")))
{
params = getParameters(func)
i = is.na(params@names) | params@names == ""
if(any(i))
params@names[i] = sprintf("var%d", which(i))
parms = alist(a= )
parms = structure(replicate(length(params@names), parms), names = params@names)
f = function() {}
formals(f) = parms
formals(f)[["..."]] = parms[[1]]
e = quote(.args <- a)
al = quote(list())
for(i in 1:length(params@names))
al[[1 + i]] = as.name(params@names[i])
e[[3]] = al
body(f)[[2]] = e
body(f)[[3]] = substitute(run(func, .args = .args, .ee = .ee, ...), list(func = func, .ee = .ee))
f
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.