library("RUnit")
# source(file.path("R", "create_random_ts.R"))
test.suit <- defineTestSuite("TestTSDataUtil",
dirs = getwd(),
testFileRegexp = '^\\d+\\.R')
test.result <- runTestSuite(test.suit)
printTextProtocol(test.result)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.