R Under development (unstable) (2024-09-15 r87152 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.

> library(testthat)
> library(jackstraw)
> 
> test_check("jackstraw")
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 1122 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-jackstraw.R:106:9'): pip works ─────────────────────────────────
Error in `smooth.spline(lambda, pi0, df = smooth.df)`: missing or infinite values in inputs are not allowed
Backtrace:
     ▆
  1. ├─testthat::expect_silent(...) at test-jackstraw.R:106:9
  2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ ├─withr::with_output_sink(...)
  5. │   │ │ └─base::force(code)
  6. │   │ ├─base::withCallingHandlers(...)
  7. │   │ └─base::withVisible(code)
  8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  9. └─jackstraw::pip(pvalue = pvalue, group = group, verbose = FALSE)
 10.   └─qvalue::lfdr(pvalue[group == i], ...)
 11.     └─qvalue::pi0est(p, ...)
 12.       └─stats::smooth.spline(lambda, pi0, df = smooth.df)

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