diff options
Diffstat (limited to 'tests/testthat/test_twa.R')
| -rw-r--r-- | tests/testthat/test_twa.R | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/testthat/test_twa.R b/tests/testthat/test_twa.R index 0b187dbd..9151ed42 100644 --- a/tests/testthat/test_twa.R +++ b/tests/testthat/test_twa.R @@ -22,7 +22,12 @@ context("Calculation of maximum time weighted average concentrations (TWAs)") test_that("Time weighted average concentrations are correct", { skip_on_cran() twa_models <- c("SFO", "FOMC", "DFOP", "HS") - travis <- Sys.getenv("TRAVIS") + travis_env <- Sys.getenv("TRAVIS") + if (travis_env == "") { + travis <- FALSE + } else { + travis <- TRUE + } fits <- mmkin(twa_models, list(FOCUS_C = FOCUS_2006_C, FOCUS_D = FOCUS_2006_D), quiet = TRUE, cores = if (travis) 1 else 8) |