Running ‘testthat.R’ [198s/223s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(registr)
  > 
  > test_check("registr")
  Saving _problems/test-gfpca_twoStep-108.R
  Saving _problems/test-plot_fpca-19.R
  [ FAIL 2 | WARN 6 | SKIP 6 | PASS 231 ]
  
  ══ Skipped tests (6) ═══════════════════════════════════════════════════════════
  • On CRAN (6): 'test-register_fpca.R:61:3', 'test-register_fpca.R:92:3',
    'test-register_fpca.R:110:3', 'test-register_fpca.R:123:3',
    'test-register_fpca.R:138:3', 'test-register_fpca.R:182:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-gfpca_twoStep.R:107:2'): gfpca_twoStep (Binomial) output has correct number of dimensions ──
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─registr::gfpca_twoStep(...) at test-gfpca_twoStep.R:107:9
    2.   └─gamm4::gamm4(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─gamm4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-plot_fpca.R:19:2'): plot.fpca returns a cowplot object with classes 'gg' and 'ggplot' for all FPCA functions ──
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─registr::gfpca_twoStep(Y = Y, npc = 2, family = "binomial") at test-plot_fpca.R:19:9
    2.   └─gamm4::gamm4(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─gamm4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  
  [ FAIL 2 | WARN 6 | SKIP 6 | PASS 231 ]
  Error:
  ! Test failures.
  Execution halted