Nothing
if (requireNamespace("RUnit", quietly=TRUE)) {
library(RUnit)
library(nlsic)
testSuite <- defineTestSuite(
name = "nlsic unit tests",
dirs = system.file("unitTests", package = "nlsic"),
testFuncRegexp = "^[Tt]est.+"
)
Sys.setenv("R_TESTS"="")
tests <- runTestSuite(testSuite)
printTextProtocol(tests)
err=getErrors(tests)
if (err$nFail > 0) stop("RUnit: ", err$nFail, " test failure(s)")
if (err$nErr > 0) stop("RUnit: ", err$nErr, " error(s) in RUnit tests")
}
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.