Nothing
library(testit)
assert("Rscript() correctly calls Rscript with system2()", {
(Rscript(c("-e", "1+1"), stdout = TRUE) %==% "[1] 2")
})
assert("Rscript_call() correctly calls Rscript()", {
(Rscript_call(function() 1+1) %==% 2)
loaded = Rscript_call(
function() loadedNamespaces(), options = "--default-packages=xfun"
)
("xfun" %in% loaded)
})
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.