From 9812feb39b079fec535f5affc6adaefc23bf6d9e Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 20 Sep 2018 22:03:13 +0200
Subject: Fix tests

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

(limited to 'tests/testthat/test_twa.R')

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