Running ‘spelling.R’
  Running ‘testthat.R’ [78s/46s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggstatsplot)
  You can cite this package as:
       Patil, I. (2021). Visualizations with statistical details: The 'ggstatsplot' approach.
       Journal of Open Source Software, 6(61), 3167, doi:10.21105/joss.03167
  > library(statsExpressions)
  > 
  > test_check("ggstatsplot")
  Starting 2 test processes
  [ FAIL 8 | WARN 6 | SKIP 77 | PASS 7 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (77)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-extract_stats.R:8:5): checking if extract_stats 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(am, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggbetweenstats(mtcars, am, mpg) at test-extract_stats.R:8:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(am, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-ggwithinstats.R:316:7): turning off mean path 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(condition, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggwithinstats(...) at test-ggwithinstats.R:316:6
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(condition, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-pairwise_ggsignif.R:10:5): check mcp displays - parametric - significant ──
  <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(vore, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggbetweenstats(...) at test-pairwise_ggsignif.R:10:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(vore, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-pairwise_ggsignif.R:42:5): check mcp displays - non-significant ──
  <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(mpaa, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggbetweenstats(...) at test-pairwise_ggsignif.R:42:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(mpaa, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-pairwise_ggsignif.R:89:5): check mixed comparison displays - nonparametric ──
  <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(genre, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggbetweenstats(...) at test-pairwise_ggsignif.R:89:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(genre, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-pairwise_ggsignif.R:123:5): check robust test display - FDR-corrected ──
  <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(drv, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggbetweenstats(...) at test-pairwise_ggsignif.R:123:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(drv, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-pairwise_ggsignif.R:154:5): check bayesian test display ─────────
  <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. ├─ggstatsplot::ggbetweenstats(...) at test-pairwise_ggsignif.R:154:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(Species, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  ── Error (test-pairwise_ggsignif.R:181:5): additional test ─────────────────────
  <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(mpaa, "\n(n = ", .prettyNum(n), ")")`.
  Caused by error in `vapply()`:
  ! values must be length 1,
   but FUN(X[[1]]) result is length 3
  Backtrace:
       ▆
    1. ├─ggstatsplot::ggbetweenstats(...) at test-pairwise_ggsignif.R:181:4
    2. │ └─ggstatsplot:::centrality_ggrepel(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─statsExpressions::centrality_description(...)
    6. │     └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::arrange(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─mask$eval_all_mutate(quo)
   14. ├─base::paste0(mpaa, "\n(n = ", .prettyNum(n), ")")
   15. ├─statsExpressions:::.prettyNum(n)
   16. │ └─base::prettyNum(x, big.mark = ",", scientific = FALSE)
   17. │   └─base::vapply(...)
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr h(simpleError(msg, call))
   20.     └─rlang::abort(...)
  
  [ FAIL 8 | WARN 6 | SKIP 77 | PASS 7 ]
  Error: Test failures
  Execution halted