diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-07-12 14:07:55 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-07-12 14:07:55 +0200 |
| commit | ac88a2fd793288d1d99046d32400974db82d85ea (patch) | |
| tree | a780175cf1b98f1be02108d1cc731d2ee2d6da4a /tests/testthat/test_nlme.R | |
| parent | d7d5b31e9352090fa598f50979d706d8e753ef9c (diff) | |
Avoid spawning multiple cores in tests on CRAN
Diffstat (limited to 'tests/testthat/test_nlme.R')
| -rw-r--r-- | tests/testthat/test_nlme.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_nlme.R b/tests/testthat/test_nlme.R index a3bc9413..a1f267bb 100644 --- a/tests/testthat/test_nlme.R +++ b/tests/testthat/test_nlme.R @@ -25,7 +25,7 @@ test_that("nlme_function works correctly", { d3 <- add_err(d_SFO_3, function(value) 4, n = 1, seed = 345678) ds <- c(d1 = d1, d2 = d2, d3 = d3) - f <- mmkin("SFO", ds, cores = 1, quiet = TRUE) + f <- mmkin("SFO", ds, cores = n_cores, quiet = TRUE) mean_dp <- mean_degparms(f) grouped_data <- nlme_data(f) @@ -113,7 +113,7 @@ test_that("nlme_function works correctly in other cases", { names(ds_me_sfo_5) <- paste("Dataset", 1:15) dimnames(ds_me_sfo_5) <- list(Subset = 1:3, DT50 = dt50_in) - f_me_sfo_5 <- mmkin("SFO", ds_me_sfo_5, quiet = TRUE) + f_me_sfo_5 <- mmkin("SFO", ds_me_sfo_5, cores = n_cores, quiet = TRUE) ds_me_sfo_5_grouped_mkin <- nlme_data(f_me_sfo_5) ds_me_sfo_5_mean_dp <- mean_degparms(f_me_sfo_5) |