Running 'testthat.R' [17s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(cgaim)
  > 
  > test_check("cgaim")
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 16 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-basic_models.R:29:1'): (code run outside of `test_that()`) ─────
  Error in `dgx[, j] <- derivs[derivs$smooth == gfit$smooth[[jind]]$label, 
      "derivative"]`: number of items to replace is not a multiple of replacement length
  Backtrace:
      ▆
   1. └─cgaim::cgaim(y ~ g(x1, x2), data = df1) at test-basic_models.R:29:1
   2.   ├─base::do.call(cgaim.fit, fitpars)
   3.   └─cgaim (local) `<fn>`(...)
   4.     ├─base::do.call(smooth_fun, smo_par)
   5.     └─cgaim:::smooth_scam(...)
  ── Error ('test-bootstrap.R:11:1'): (code run outside of `test_that()`) ────────
  Error in `dgx[, j] <- derivs[derivs$smooth == gfit$smooth[[jind]]$label, 
      "derivative"]`: number of items to replace is not a multiple of replacement length
  Backtrace:
      ▆
   1. └─cgaim::cgaim(y ~ g(x1, x2, acons = list(monotone = 1)), data = df1) at test-bootstrap.R:11:1
   2.   ├─base::do.call(cgaim.fit, fitpars)
   3.   └─cgaim (local) `<fn>`(...)
   4.     ├─base::do.call(smooth_fun, smo_par)
   5.     └─cgaim:::smooth_scam(...)
  ── Failure ('test-build_constraint.R:35:3'): Solution is feasible ──────────────
  all((full2 %*% redres2$solution) >= -.Machine$double.eps) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test-no_intercept.R:16:1'): (code run outside of `test_that()`) ─────
  Error in `dgx[, j] <- derivs[derivs$smooth == gfit$smooth[[jind]]$label, 
      "derivative"]`: number of items to replace is not a multiple of replacement length
  Backtrace:
      ▆
   1. └─cgaim::cgaim(...) at test-no_intercept.R:16:1
   2.   ├─base::do.call(cgaim.fit, fitpars)
   3.   └─cgaim (local) `<fn>`(...)
   4.     ├─base::do.call(smooth_fun, smo_par)
   5.     └─cgaim:::smooth_scam(...)
  ── Error ('test_updateAlpha.R:26:1'): (code run outside of `test_that()`) ──────
  Error in `matrix(derivs[["derivative"]], ncol = 2)`: 'data' must be of a vector type, was 'NULL'
  Backtrace:
      ▆
   1. └─base::matrix(derivs[["derivative"]], ncol = 2) at test_updateAlpha.R:26:1
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 16 ]
  Error: Test failures
  Execution halted