tests/testthat/test-all.R

context ("ATTACHED TESTS")
names <- ls (envir = getNamespace("cbmisc"), all.names = TRUE)

tests <- lapply (names, function (n) {attr (get (n), "test")})
tests <- tests [! sapply (tests, is.null)]
lapply (tests, eval)
context ("END OF ATTACHED TESTS")

Try the cbmisc package in your browser

Any scripts or data that you put into this service are public.

cbmisc documentation built on May 2, 2019, 5:20 p.m.