R Under development (unstable) (2024-01-20 r85814 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.

> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
> # * https://testthat.r-lib.org/articles/special-files.html
> 
> library(testthat)
> library(causalBatch)
> 
> test_check("causalBatch")
Found2batches
Adjusting for1covariate(s) or covariate level(s)
Standardizing Data across genes
Fitting L/S model and finding priors
Finding parametric adjustments
Adjusting the Data

Loading required package: ks

Attaching package: 'ks'

The following object is masked from 'package:testthat':

    compare

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 41 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-causal_ccombat.R:25:3'): raises warning when few samples are retained ──
Error in `apply(do.call(cbind, lapply(paired.matches, function(x) x$M.mat.k))[I.mat, 
    ], c(2), sum)`: dim(X) must have a positive length
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test-causal_ccombat.R:25:3
  2. │ └─testthat:::expect_condition_matching(...)
  3. │   └─testthat:::quasi_capture(...)
  4. │     ├─testthat (local) .capture(...)
  5. │     │ └─base::withCallingHandlers(...)
  6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  7. └─causalBatch::cb.correct.caus_cComBat(...)
  8.   ├─base::unique(...)
  9.   ├─base::do.call(...)
 10.   └─causalBatch (local) `<fn>`(...)
 11.     └─base::apply(...)

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 41 ]
Error: Test failures
Execution halted