diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2018-09-18 10:28:08 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-09-18 10:28:08 +0200 |
| commit | a2246bef55eb74f3ad608c28dc3b759af32a41b9 (patch) | |
| tree | 4ba1ec7b30dfd99d1c2d31b2ae64bf3eb51551df /tests/testthat/test_twa.R | |
| parent | 39b6d8b8569801c2957b22d0973b5ad0c9405e7d (diff) | |
Use single core on travis
Diffstat (limited to 'tests/testthat/test_twa.R')
| -rw-r--r-- | tests/testthat/test_twa.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/testthat/test_twa.R b/tests/testthat/test_twa.R index 758c42c3..0b187dbd 100644 --- a/tests/testthat/test_twa.R +++ b/tests/testthat/test_twa.R @@ -22,9 +22,10 @@ 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") fits <- mmkin(twa_models, list(FOCUS_C = FOCUS_2006_C, FOCUS_D = FOCUS_2006_D), - quiet = TRUE, cores = 8) + quiet = TRUE, cores = if (travis) 1 else 8) outtimes_10 <- seq(0, 10, length.out = 10000) |