Nothing
if (require('RUnit')) {
library(lisp)
results <- runTestSuite(defineTestSuite('lisp',
'lisp',
testFileRegexp='^.+\\.[rR]'))
printTextProtocol(results)
errors <- getErrors(results)
if (errors$nErr || errors$nFail)
stop('Unit testing failed (vide supra).')
}
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.