Running ‘spelling.R’
  Running ‘testthat.R’ [7m/11m]
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)
  > 
  > test_check("statsExpressions")
  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 2997 | SKIP 51 | PASS 32 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (51)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-contingency_table.R:212'): bayesian (contingency tab) ──────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., expression = glue("list(\n            log[e]*(BF['01'])=='{format_value(-log(bf10), k)}',\n            {es.text}^'posterior'=='{estimate}',\n            CI['{conf.level}']^{conf.method}~'['*'{conf.low}', '{conf.high}'*']',\n            {prior.distribution}=='{prior.scale}')"))`: Problem while computing `expression = glue("list(\n log[e]*(BF['01'])=='{format_value(-log(bf10), k)}',\n {es.text}^'posterior'=='{estimate}',\n CI['{conf.level}']^{conf.method}~'['*'{conf.low}', '{conf.high}'*']',\n {prior.distribution}=='{prior.scale}')")`.
  Caused by error:
  ! object 'estimate' not found
  Backtrace:
       ▆
    1. ├─statsExpressions::contingency_table(...) at test-contingency_table.R:212:4
    2. │ └─statsExpressions::add_expression_col(...)
    3. │   └─df_expr %<>% ...
    4. ├─dplyr::mutate(., expression = glue("list(\n            log[e]*(BF['01'])=='{format_value(-log(bf10), k)}',\n            {es.text}^'posterior'=='{estimate}',\n            CI['{conf.level}']^{conf.method}~'['*'{conf.low}', '{conf.high}'*']',\n            {prior.distribution}=='{prior.scale}')"))
    5. ├─dplyr:::mutate.data.frame(., expression = glue("list(\n            log[e]*(BF['01'])=='{format_value(-log(bf10), k)}',\n            {es.text}^'posterior'=='{estimate}',\n            CI['{conf.level}']^{conf.method}~'['*'{conf.low}', '{conf.high}'*']',\n            {prior.distribution}=='{prior.scale}')"))
    6. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
    7. │   ├─base::withCallingHandlers(...)
    8. │   └─mask$eval_all_mutate(quo)
    9. ├─glue::glue("list(\n            log[e]*(BF['01'])=='{format_value(-log(bf10), k)}',\n            {es.text}^'posterior'=='{estimate}',\n            CI['{conf.level}']^{conf.method}~'['*'{conf.low}', '{conf.high}'*']',\n            {prior.distribution}=='{prior.scale}')")
   10. │ └─glue::glue_data(...)
   11. ├─glue (local) `<fn>`("estimate")
   12. │ ├─.transformer(expr, env) %||% .null
   13. │ └─glue (local) .transformer(expr, env)
   14. │   └─base::eval(parse(text = text, keep.source = FALSE), envir)
   15. │     └─base::eval(parse(text = text, keep.source = FALSE), envir)
   16. └─base::.handleSimpleError(...)
   17.   └─dplyr (local) h(simpleError(msg, call))
   18.     └─rlang::abort(...)
  
  [ FAIL 1 | WARN 2997 | SKIP 51 | PASS 32 ]
  Error: Test failures
  Execution halted