Nothing
if(require("RUnit", quietly=TRUE)) {
## Run all the tests
wd <- getwd()
testsuite <- defineTestSuite("PCICt", dirs=wd, testFileRegexp = "^test_functions.R$", testFuncRegexp = "^PCICt.test.+")
PCICt.test.result <- runTestSuite(testsuite, useOwnErrorHandler=F)
printTextProtocol(PCICt.test.result)
}
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.