diff options
author | Ken Kellner <ken@kenkellner.com> | 2023-12-05 20:13:40 -0500 |
---|---|---|
committer | Ken Kellner <ken@kenkellner.com> | 2023-12-05 20:13:40 -0500 |
commit | c8a1c83de33a909cf0dc167ee7b5e880e41610b1 (patch) | |
tree | b3702a10ba9e68b1c8911930b6995d6879de902c | |
parent | f88bb024d3df095d62ec6591d4bdf3f702849a0f (diff) |
Don't run parallel tests remotely
-rw-r--r-- | Makefile | 2 | ||||
-rw-r--r-- | inst/tinytest/test_jags.R | 3 | ||||
-rw-r--r-- | inst/tinytest/test_jagsbasic.R | 3 |
3 files changed, 5 insertions, 3 deletions
@@ -13,7 +13,7 @@ check: test: make install - Rscript -e "tinytest::test_package('jagsUI')" + Rscript -e "Sys.setenv("AT_HOME" = "TRUE"); tinytest::test_package('jagsUI')" coverage: make install diff --git a/inst/tinytest/test_jags.R b/inst/tinytest/test_jags.R index 221de14..2218dfc 100644 --- a/inst/tinytest/test_jags.R +++ b/inst/tinytest/test_jags.R @@ -108,7 +108,8 @@ out$mcmc.info$elapsed.mins <- ref$mcmc.inf$elapsed.mins expect_identical(out[-c(15,16,19)], ref[-c(15,16,19)]) # Run in parallel-------------------------------------------------------------- -if(parallel::detectCores() > 1){ +at_home <- identical( Sys.getenv("AT_HOME"), "TRUE" ) +if(parallel::detectCores() > 1 & at_home){ set.seed(123) params <- c('alpha','beta','sigma', 'mu') out <- jags(data = data, inits = inits, parameters.to.save = params, diff --git a/inst/tinytest/test_jagsbasic.R b/inst/tinytest/test_jagsbasic.R index 4e48ad4..c646aa0 100644 --- a/inst/tinytest/test_jagsbasic.R +++ b/inst/tinytest/test_jagsbasic.R @@ -55,7 +55,8 @@ expect_error(jags.basic(data = data, inits = inits, parameters.to.save = params, n.burnin = 50, n.thin = 2, verbose=FALSE, save.model=TRUE, seed=123)) # Parallel--------------------------------------------------------------------- -if(parallel::detectCores() > 1){ +at_home <- identical( Sys.getenv("AT_HOME"), "TRUE" ) +if(parallel::detectCores() > 1 & at_home){ set.seed(123) out <- jags.basic(data = data, inits = inits, parameters.to.save = params, model.file = modfile, n.chains = 3, n.adapt = 100, n.iter = 100, |