R Under development (unstable) (2023-10-22 r85388 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # Build --> Install and Restart
> # [Edit this] path to the Workbench for your computer.
> my_wb <- "~/Desktop/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 0 | PASS 10 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-test_all_methods.R:32:3'): pscrub works ────────────────────────
Error in `La.svd(W)`: a dimension is zero
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test-test_all_methods.R:32: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 = ICA_method))
  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 = ICA_method)
 13.       └─fastICA::ica.R.par(...)
 14.         └─base::La.svd(W)
── Error ('test-test_scrubbing.R:37:3'): pscrub works ──────────────────────────
Error in `La.svd(W)`: a dimension is zero
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test-test_scrubbing.R:37: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 = ICA_method))
  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 = ICA_method)
 13.       └─fastICA::ica.R.par(...)
 14.         └─base::La.svd(W)

[ FAIL 2 | WARN 0 | SKIP 0 | PASS 10 ]
Error: Test failures
> 
> proc.time()
   user  system elapsed 
  24.39    3.73   28.10