if (requireNamespace("RUnit", quietly=TRUE) && requireNamespace("dynafluxr", quietly=TRUE)) { testSuite <- RUnit::defineTestSuite( name = "dynafluxr unit tests", dirs = system.file("unitTests", package = "dynafluxr"), testFuncRegexp = "^[Tt]est.+" ) Sys.setenv("R_TESTS"="") tests <- RUnit::runTestSuite(testSuite) RUnit::printTextProtocol(tests) if (RUnit::getErrors(tests)$nFail > 0) stop("RUnit test failure") if (RUnit::getErrors(tests)$nErr > 0) stop("Errors in RUnit tests") }