Running 'testthat.R' [72s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(cutpointr)
  > 
  > test_check("cutpointr")
  [ FAIL 3 | WARN 14 | SKIP 0 | PASS 444 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-cutpointr.R:910:5'): smoothing splines lead to plausible results ──
  Error in `stats::smooth.spline(x = roccurve$x.sorted[finite_roc], y = roccurve$m[finite_roc], 
      w = args[["w"]], spar = args[["spar"]], cv = FALSE, nknots = nknots, 
      df.offset = args[["df_offset"]], penalty = args[["penalty"]], 
      control.spar = args[["control_spar"]], tol = 1e-100)`: df.offset must be numeric and >= 0
  Backtrace:
      ▆
   1. ├─cutpointr::cutpointr(...) at test-cutpointr.R:910:5
   2. └─cutpointr:::cutpointr.default(...)
   3.   └─cutpointr:::cutpointr_internal(...)
   4.     └─cutpointr (local) method(...)
   5.       └─cutpointr:::optimize_metric(...)
   6.         └─stats::smooth.spline(...)
  ── Error ('test-cutpointr.R:985:5'): this led to an error with get_rev_dups Rcpp function ──
  Error in `stats::smooth.spline(x = roccurve$x.sorted[finite_roc], y = roccurve$m[finite_roc], 
      w = args[["w"]], spar = args[["spar"]], cv = FALSE, nknots = nknots, 
      df.offset = args[["df_offset"]], penalty = args[["penalty"]], 
      control.spar = args[["control_spar"]], tol = 1e-100)`: df.offset must be numeric and >= 0
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-cutpointr.R:985:5
    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. ├─cutpointr::cutpointr(...)
   10. └─cutpointr:::cutpointr.default(...)
   11.   ├─base::suppressMessages(...)
   12.   │ └─base::withCallingHandlers(...)
   13.   └─cutpointr:::cutpointr_internal(...)
   14.     └─cutpointr (local) method(...)
   15.       └─cutpointr:::optimize_metric(...)
   16.         └─stats::smooth.spline(...)
  ── Error ('test-cutpointr.R:1202:5'): predict behaves as expected ──────────────
  Error in `stats::smooth.spline(x = roccurve$x.sorted[finite_roc], y = roccurve$m[finite_roc], 
      w = args[["w"]], spar = args[["spar"]], cv = FALSE, nknots = nknots, 
      df.offset = args[["df_offset"]], penalty = args[["penalty"]], 
      control.spar = args[["control_spar"]], tol = 1e-100)`: df.offset must be numeric and >= 0
  Backtrace:
      ▆
   1. ├─cutpointr::cutpointr(...) at test-cutpointr.R:1202:5
   2. └─cutpointr:::cutpointr.default(...)
   3.   └─cutpointr:::cutpointr_internal(...)
   4.     └─cutpointr (local) method(...)
   5.       └─cutpointr:::optimize_metric(...)
   6.         └─stats::smooth.spline(...)
  
  [ FAIL 3 | WARN 14 | SKIP 0 | PASS 444 ]
  Error: Test failures
  Execution halted