Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(skater)
  > 
  > test_check("skater")
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 10 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-skater.R:23'): Expect errors on on plot_pedigree() ─────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `dplyr::mutate(., dplyr::across(c(dadid, momid), dplyr::na_if, 
      0))`: i In argument: `dplyr::across(c(dadid, momid), dplyr::na_if, 0)`.
  Caused by error in `dplyr::across()`:
  ! Can't compute column `dadid`.
  Caused by error in `fn()`:
  ! Can't convert `y` <double> to match type of `x` <character>.
  Backtrace:
       ▆
    1. ├─skater::fam2ped(fam) at test-skater.R:23:2
    2. │ └─fam %>% ...
    3. ├─dplyr::mutate(...)
    4. ├─dplyr:::mutate.data.frame(., dplyr::across(c(dadid, momid), dplyr::na_if, 0))
    5. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
    6. │   ├─base::withCallingHandlers(...)
    7. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
    8. │     └─mask$eval_all_mutate(quo)
    9. │       └─dplyr (local) eval()
   10. ├─dplyr::across(c(dadid, momid), dplyr::na_if, 0)
   11. │ ├─base::withCallingHandlers(...)
   12. │ └─dplyr (local) fn(col, ...)
   13. │   └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   14. ├─vctrs (local) `<fn>`()
   15. │ └─vctrs::vec_default_cast(...)
   16. │   ├─base::withRestarts(...)
   17. │   │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18. │   │   └─base (local) doWithOneRestart(return(expr), restart)
   19. │   └─vctrs::stop_incompatible_cast(...)
   20. │     └─vctrs::stop_incompatible_type(...)
   21. │       └─vctrs:::stop_incompatible(...)
   22. │         └─vctrs:::stop_vctrs(...)
   23. │           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
   24. │             └─rlang:::signal_abort(cnd, .file)
   25. │               └─base::signalCondition(cnd)
   26. ├─dplyr (local) `<fn>`(`<vctrs_r_>`)
   27. │ └─rlang::abort(bullets, call = error_call, parent = cnd)
   28. │   └─rlang:::signal_abort(cnd, .file)
   29. │     └─base::signalCondition(cnd)
   30. └─dplyr (local) `<fn>`(`<rlng_rrr>`)
   31.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 10 ]
  Error: Test failures
  Execution halted