# load("tests/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.