library('RUnit')
BiocGenerics:::testPackage("packageDir")
message("Running Tests")
test.suite <- defineTestSuite("example",
dirs = system.file("unitTests", package = "packageDir"),
testFileRegexp = '^\\d+\\.R')
test.result <- runTestSuite(test.suite)
printTextProtocol(test.result)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.