Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [270s/329s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(statsExpressions)
  > 
  > ## pretty tibble printing
  > options(
  +   tibble.width = Inf,
  +   pillar.bold = TRUE,
  +   pillar.neg = TRUE,
  +   pillar.subtle_num = TRUE,
  +   pillar.min_chars = Inf
  + )
  > 
  > test_check("statsExpressions")
  Adding missing grouping variables: `am`
  Adding missing grouping variables: `am`
  Adding missing grouping variables: `am`
  t is large; approximation invoked.
  Multiple `BFBayesFactor` models detected - posteriors are extracted from the first numerator model.
  See help("get_parameters", package = "insight").
  [ FAIL 1 | WARN 11 | SKIP 44 | PASS 39 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (44)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-centrality_description.R:8:5): contingency_table works ──────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., expression = glue("widehat(mu)[{centrality}]=='{format_value(estimate, k)}'"), 
      n_label = paste0({
          {
              x
          }
      }, "\n(n = ", .prettyNum(n), ")"))`: Problem while computing `n_label = paste0(Species, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─purrr::pmap_dfr(...) at test-centrality_description.R:8:4
    2. │ └─purrr::pmap(.l, .f, ...)
    3. │   └─statsExpressions .f(...)
    4. │     └─... %>% ...
    5. ├─dplyr::select(...)
    6. ├─dplyr::arrange(...)
    7. ├─dplyr::mutate(...)
    8. ├─dplyr:::mutate.data.frame(...)
    9. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─mask$eval_all_mutate(quo)
   12. ├─base::paste0(Species, "\n(n = ", .prettyNum(n), ")")
   13. ├─statsExpressions:::.prettyNum(n)
   14. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   15. │   └─base::vapply(...)
   16. └─base::.handleSimpleError(...)
   17.   └─dplyr h(simpleError(msg, call))
   18.     └─rlang::abort(...)
  
  [ FAIL 1 | WARN 11 | SKIP 44 | PASS 39 ]
  Error: Test failures
  Execution halted