1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
run <- function() {
on_cran <- !isTRUE(as.logical(Sys.getenv("NOT_CRAN", "false")))
if (on_cran) {
message("env var 'NOT_CRAN=true' not defined; Skipping tests on CRAN")
return()
}
if (!requireNamespace("testthat", quietly = TRUE)) {
message("'testthat' package not available; tests cannot be run")
return()
}
options(error = traceback)
if (requireNamespace("rlang", quietly = TRUE))
options(error = rlang::trace_back)
library(testthat)
library(reticulate)
test_check("reticulate")
}
run()
|
