Nothing
if (Sys.getenv("_LOCAL_TESTS_")=="TRUE") { ## not on CRAN
if(require("testthat", quietly = TRUE)) {
pkg <- "blackbox"
require(pkg, character.only=TRUE, quietly=TRUE)
## test_package(pkg) ## for an installed package
if (interactive()) {
if (FALSE) { ## tests not included in package (using unpublished data, etc.)
oldpath <- getwd()
ptpath <- paste0(blackbox::projpath(),"/package/tests_private/")
subpaths <- dir(ptpath,full.names = TRUE)
virgin_opts <- blackbox.options()
priv_timings <- list()
# the migraine scripts have rm(list=ls()) hence we copy some variable in the options 'keep_over_blackbox_tests' and 'blackbox_path'
options(keep_over_blackbox_tests=mget(c("oldpath","subpaths","virgin_opts","priv_timings"),.GlobalEnv))
for (st in getOption("keep_over_blackbox_tests")$subpaths) {
options("blackbox_path"=st)
setwd(st)
blackbox.options(getOption("keep_over_blackbox_tests")$virgin_opts)
priv_timing <- system.time(source("migraine_1.R"))
keep_over_blackbox_tests <- getOption("keep_over_blackbox_tests")
keep_over_blackbox_tests$priv_timings[[getOption("blackbox_path")]] <- priv_timing
options("keep_over_blackbox_tests"=keep_over_blackbox_tests)
}
setwd(getOption("keep_over_blackbox_tests")$oldpath)
#priv_testfiles <- dir(ptpath,pattern="*.R",full.names = TRUE)
#priv_timings <- t(sapply(priv_testfiles, function(fich){system.time(source(fich))}))
print(getOption("keep_over_blackbox_tests")$priv_timings)
}
} else {
report <- test_check(pkg) ## for R CMD check ## report is NULL...
print(warnings()) # TODO? catch most of these by expect_warning(..)
}
} else {
cat( "package 'testthat' not available, cannot run unit tests\n" )
}
}
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.