Running ‘testthat.R’ [11s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(testflow)
  > 
  > test_check("testflow")
  Saving _problems/test-assumptions-repeated-3.R
  Saving _problems/test-assumptions-structure-19.R
  Saving _problems/test-print-77.R
  Saving _problems/test-test-repeated-9.R
  Saving _problems/test-test-repeated-26.R
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 146 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-assumptions-repeated.R:3:3'): repeated workflow reports sphericity note ──
  Error in `if (is.finite(resvar) && resvar < (mean(fitted)^2 + var(c(fitted))) * 1e-30) perfect.fit[y] <- TRUE`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─testflow::test_repeated(...) at test-assumptions-repeated.R:3:3
   2.   └─testflow:::repeated_core(...)
   3.     └─testflow:::repeated_anova_test(df, outcome_nm, within_nm, id_nm)
   4.       ├─base::summary(fit)
   5.       └─stats:::summary.aovlist(fit)
   6.         ├─base::do.call("summary", c(list(object = object[[i]]), dots))
   7.         ├─base::summary(object = `<aov>`)
   8.         └─stats::summary.aov(object = `<aov>`)
  ── Error ('test-assumptions-structure.R:4:3'): workflows return non-empty assumptions and print Assumptions ──
  Error in `if (is.finite(resvar) && resvar < (mean(fitted)^2 + var(c(fitted))) * 1e-30) perfect.fit[y] <- TRUE`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─testflow::test_repeated(...) at test-assumptions-structure.R:4:3
   2.   └─testflow:::repeated_core(...)
   3.     └─testflow:::repeated_anova_test(df, outcome_nm, within_nm, id_nm)
   4.       ├─base::summary(fit)
   5.       └─stats:::summary.aovlist(fit)
   6.         ├─base::do.call("summary", c(list(object = object[[i]]), dots))
   7.         ├─base::summary(object = `<aov>`)
   8.         └─stats::summary.aov(object = `<aov>`)
  ── Error ('test-print.R:77:3'): wide repeated workflow prints measure labels ───
  Error in `if (is.finite(resvar) && resvar < (mean(fitted)^2 + var(c(fitted))) * 1e-30) perfect.fit[y] <- TRUE`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─testflow::test_repeated(...) at test-print.R:77:3
   2.   └─testflow:::repeated_core(...)
   3.     └─testflow:::repeated_anova_test(df, outcome_nm, within_nm, id_nm)
   4.       ├─base::summary(fit)
   5.       └─stats:::summary.aovlist(fit)
   6.         ├─base::do.call("summary", c(list(object = object[[i]]), dots))
   7.         ├─base::summary(object = `<aov>`)
   8.         └─stats::summary.aov(object = `<aov>`)
  ── Error ('test-test-repeated.R:9:3'): test_repeated uses repeated-measures ANOVA when normality passes ──
  Error in `if (is.finite(resvar) && resvar < (mean(fitted)^2 + var(c(fitted))) * 1e-30) perfect.fit[y] <- TRUE`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─testflow::test_repeated(dat, c(t1, t2, t3), id = id) at test-test-repeated.R:9:3
   2.   └─testflow:::repeated_core(...)
   3.     └─testflow:::repeated_anova_test(df, outcome_nm, within_nm, id_nm)
   4.       ├─base::summary(fit)
   5.       └─stats:::summary.aovlist(fit)
   6.         ├─base::do.call("summary", c(list(object = object[[i]]), dots))
   7.         ├─base::summary(object = `<aov>`)
   8.         └─stats::summary.aov(object = `<aov>`)
  ── Error ('test-test-repeated.R:26:3'): test_repeated uses Friedman and paired Wilcoxon when normality fails ──
  Error in `if (is.finite(resvar) && resvar < (mean(fitted)^2 + var(c(fitted))) * 1e-30) perfect.fit[y] <- TRUE`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─testflow::test_repeated(dat, c(t1, t2, t3), id = id) at test-test-repeated.R:26:3
   2.   └─testflow:::repeated_core(...)
   3.     └─testflow:::repeated_anova_test(df, outcome_nm, within_nm, id_nm)
   4.       ├─base::summary(fit)
   5.       └─stats:::summary.aovlist(fit)
   6.         ├─base::do.call("summary", c(list(object = object[[i]]), dots))
   7.         ├─base::summary(object = `<aov>`)
   8.         └─stats::summary.aov(object = `<aov>`)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 146 ]
  Error:
  ! Test failures.
  Execution halted