Running ‘testthat.R’ [44s/105s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # Build --> Install and Restart
  > # [Edit this] path to the Workbench for your computer.
  > my_wb <- "../../workbench"
  > 
  > library(testthat)
  > library(ciftiTools)
  > if (interactive()) { ciftiTools.setOption("wb_path", my_wb) }
  > library(fMRItools)
  > 
  > need_pkg <- c("ciftiTools", "fMRIscrub", "ggplot2", "cowplot", "fastICA")
  > have_pkgs <- vapply(need_pkg, function(q){requireNamespace(q, quietly=TRUE)}, FALSE)
  > 
  > if (all(have_pkgs)) {
  +   library(ciftiTools)
  +   if (interactive()) { ciftiTools.setOption("wb_path", my_wb) }
  + 
  +   library(fMRIscrub)
  +   library(ggplot2)
  +   library(cowplot)
  +   library(fastICA)
  + 
  +   test_check("fMRIscrub")
  + }
  Checking for missing, infinite, and constant data.
  Performing nuisance regression.
  Centering and scaling the data columns.
  Computing PESEL.
  Computing PCA.
  Computing ICA.
  Computing leverage.
  Checking for missing, infinite, and constant data.
  Performing nuisance regression.
  Centering and scaling the data columns.
  Computing PESEL.
  Computing ICA.
  Computing leverage.
  Checking for missing, infinite, and constant data.
  Performing nuisance regression.
  Scaling the data columns.
  Computing PCA.
  Computing leverage.
  [ FAIL 2 | WARN 0 | SKIP 2 | PASS 9 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • Connectome Workbench is not available. (1): 'test-test_scrubbing.R:55:5'
  • empty test (1): 'test-test_scrubbing.R:45:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-test_all_methods.R:30:3'): pscrub works ────────────────────────
  Error in `fastICA::fastICA(t(X), maxK_ICA, method = "C")`: BLAS/LAPACK routine 'DGESDD' gave error code -5
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-test_all_methods.R:30:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─fMRIscrub::pscrub(...)
    7.   └─fMRIscrub:::pscrub_multi(...)
    8.     ├─base::with(set.seed(seed), fastICA::fastICA(t(X), maxK_ICA, method = "C"))
    9.     ├─base::with.default(...)
   10.     │ └─base::eval(substitute(expr), data, enclos = parent.frame())
   11.     │   └─base::eval(substitute(expr), data, enclos = parent.frame())
   12.     └─fastICA::fastICA(t(X), maxK_ICA, method = "C")
  ── Error ('test-test_scrubbing.R:34:3'): pscrub works ──────────────────────────
  Error in `fastICA::fastICA(t(X), maxK_ICA, method = "C")`: BLAS/LAPACK routine 'DGESDD' gave error code -5
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-test_scrubbing.R:34:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─fMRIscrub::pscrub(...)
    7.   └─fMRIscrub:::pscrub_multi(...)
    8.     ├─base::with(set.seed(seed), fastICA::fastICA(t(X), maxK_ICA, method = "C"))
    9.     ├─base::with.default(...)
   10.     │ └─base::eval(substitute(expr), data, enclos = parent.frame())
   11.     │   └─base::eval(substitute(expr), data, enclos = parent.frame())
   12.     └─fastICA::fastICA(t(X), maxK_ICA, method = "C")
  
  [ FAIL 2 | WARN 0 | SKIP 2 | PASS 9 ]
  Error: Test failures
  Execution halted