Nothing
library(gsubfn)
library(svUnit)
gsubfn.tests <- system.file("unitTests", "runit.all.R", package = "gsubfn")
cat("Running:", gsubfn.tests, "\n")
source(gsubfn.tests)
clearLog()
test.all()
Log()
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.