Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [201s/330s]
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 3 | WARN 0 | SKIP 43 | PASS 38 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (43)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-loop_execution_bayes.R:81:5): expr_anova works in loop ──────────
  <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. ├─utils::capture.output(...) at test-loop_execution_bayes.R:81:4
    2. │ └─base::withVisible(...elt(i))
    3. ├─base::print(...) at test-loop_execution_bayes.R:82:6
    4. ├─statsExpressions::oneway_anova(...)
    5. │ └─statsExpressions::add_expression_col(...)
    6. │   └─df_expr %<>% ...
    7. ├─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}')"))
    8. ├─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}')"))
    9. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─mask$eval_all_mutate(quo)
   12. ├─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}')")
   13. │ └─glue::glue_data(...)
   14. ├─glue `<fn>`("estimate")
   15. │ ├─.transformer(expr, env) %||% .null
   16. │ └─glue .transformer(expr, env)
   17. │   └─base::eval(parse(text = text, keep.source = FALSE), envir)
   18. │     └─base::eval(parse(text = text, keep.source = FALSE), envir)
   19. └─base::.handleSimpleError(...)
   20.   └─dplyr h(simpleError(msg, call))
   21.     └─rlang::abort(...)
  ── Error (test-oneway_anova_bayes.R:11:5): bayes factor (between-subjects - anova) ──
  <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. ├─base::suppressWarnings(...) at test-oneway_anova_bayes.R:11:4
    2. │ └─base::withCallingHandlers(...)
    3. ├─statsExpressions::oneway_anova(...)
    4. │ └─statsExpressions::add_expression_col(...)
    5. │   └─df_expr %<>% ...
    6. ├─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}')"))
    7. ├─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}')"))
    8. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
    9. │   ├─base::withCallingHandlers(...)
   10. │   └─mask$eval_all_mutate(quo)
   11. ├─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}')")
   12. │ └─glue::glue_data(...)
   13. ├─glue `<fn>`("estimate")
   14. │ ├─.transformer(expr, env) %||% .null
   15. │ └─glue .transformer(expr, env)
   16. │   └─base::eval(parse(text = text, keep.source = FALSE), envir)
   17. │     └─base::eval(parse(text = text, keep.source = FALSE), envir)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-oneway_anova_bayes.R:46:5): bayes factor (within-subjects - anova) ──
  <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::oneway_anova(...) at test-oneway_anova_bayes.R:46: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 `<fn>`("estimate")
   12. │ ├─.transformer(expr, env) %||% .null
   13. │ └─glue .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 h(simpleError(msg, call))
   18.     └─rlang::abort(...)
  
  [ FAIL 3 | WARN 0 | SKIP 43 | PASS 38 ]
  Error: Test failures
  Execution halted