Nothing
require(cxxfunplus)
dso <- cxxfunctionplus(signature(x = "integer", y = "numeric"),
'return ScalarReal(INTEGER(x)[0] * REAL(y)[0]);',
save.dso = TRUE)
show(dso)
fx <- grab.cxxfun(dso)
fx(3L, 4)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.