Running 'testthat.R' [35s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(galamm)
  > 
  > test_check("galamm")
  [ FAIL 21 | WARN 0 | SKIP 0 | PASS 26 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-galamm-glmm.R:8:3'): Logistic GLMM with simple factor works ────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-glmm.R:8:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-glmm.R:93:3'): Poisson GLMM works ───────────────────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-glmm.R:93:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-heteroscedastic.R:2:3'): Heteroscedastic model works ────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-heteroscedastic.R:2:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-latent-covariates-interaction.R:9:3'): Interaction between latent and observed covariates works ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-latent-covariates-interaction.R:9:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-latent-covariates-interaction.R:60:3'): Crossed latent-observed interaction models work ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-latent-covariates-interaction.R:60:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-latent-covariates-interaction.R:85:3'): Latent-observed interaction with smooths ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-latent-covariates-interaction.R:85:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-lmm.R:10:3'): LMM with simple factor works ──────────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-lmm.R:10:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-lmm.R:107:3'): LMM with simple factor works with Nelder-Mead ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-lmm.R:107:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-lmm.R:191:3'): LMM with two factors works ───────────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-lmm.R:191:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-lmm.R:249:3'): LMM with two raters works ────────────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-lmm.R:249:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-mixed-resp.R:3:3'): Mixed response works ────────────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-mixed-resp.R:3:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-mixed-resp.R:83:3'): Mixed response works with multiple trials ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-mixed-resp.R:83:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-mixed-resp.R:101:3'): Covariate measurement error model works ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-mixed-resp.R:101:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-mixed-resp.R:145:3'): Mixed response and heteroscedastic error works ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-mixed-resp.R:145:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-semiparametric.R:4:3'): galamm reproduces gamm4 ─────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(formula = y ~ s(x), data = dat) at test-galamm-semiparametric.R:4:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-semiparametric.R:162:3'): Basic GAMM with factor structures works ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-semiparametric.R:162:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-semiparametric.R:281:3'): GAMM with factor structures and random effects works ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-semiparametric.R:281:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-setup.R:237:3'): family can be defined in three different ways ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-setup.R:237:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-setup.R:283:3'): multiple factors and factors in fixed effects are allowed ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-setup.R:283:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-setup.R:316:3'): functions fail when they should ────────
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(Reaction ~ Days + (Days | Subject), data = sleepstudy) at test-galamm-setup.R:316:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  ── Error ('test-galamm-setup.R:339:3'): multiple factors in fixed effects works ──
  Error in `vapply(family_list, function(x) is.na(x$dispersion), logical(1))`: values must be length 1,
   but FUN(X[[1]]) result is length 0
  Backtrace:
      ▆
   1. └─galamm::galamm(...) at test-galamm-setup.R:339:2
   2.   └─base::vapply(family_list, function(x) is.na(x$dispersion), logical(1))
  
  [ FAIL 21 | WARN 0 | SKIP 0 | PASS 26 ]
  Error: Test failures
  Execution halted