From a2246bef55eb74f3ad608c28dc3b759af32a41b9 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 18 Sep 2018 10:28:08 +0200
Subject: Use single core on travis

---
 tests/testthat/test_twa.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
 
-- 
cgit v1.2.1