load("exemplar_data.rda")
library(PCICt)
if(require("RUnit", quietly=TRUE)) {
## Run all the tests
wd <- getwd()
testsuite <- defineTestSuite("climdex.pcic", dirs=wd, testFileRegexp = "^test_.+.R$", testFuncRegexp = "^climdex.pcic.test.+")
climdex.pcic.test.result <- runTestSuite(testsuite, useOwnErrorHandler=F)
printTextProtocol(climdex.pcic.test.result)
stopifnot(climdex.pcic.test.result$climdex.pcic$nFail == 0 && climdex.pcic.test.result$climdex.pcic$nErr == 0)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.