Running ‘testthat.R’ [37s/50s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(dabestr)
  Loading required package: boot
  Loading required package: magrittr
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  > 
  > test_check("dabestr")
  ── 1. Error: Gardner-Altman custom aesthetics (@test-aesthetics.R#28)  ─────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Gardner-Altman unpaired custom ylimits", gardner.altman.unpaired.custom.ylim) at testthat/test-aesthetics.R:28
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: Cumming custom aesthetics (@test-aesthetics.R#140)  ───────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming custom swarm ylimits", cumming.multi.plot.custom.raw.ylim) at testthat/test-aesthetics.R:140
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 3. Error: Cumming two-groups unpaired (@test-cumming-plots.R#17)  ───────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming two-groups unpaired", cumming.two.group.unpaired) at testthat/test-cumming-plots.R:17
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 4. Error: Cumming two-groups paired (@test-cumming-plots.R#36)  ─────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming two-group paired", cumming.two.group.paired) at testthat/test-cumming-plots.R:36
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 5. Error: Cumming multi two-groups unpaired (@test-cumming-plots.R#56)  ─────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming multi two-groups unpaired", cumming.multi.two.group.unpaired) at testthat/test-cumming-plots.R:56
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 6. Error: Cumming multi two-groups paired (@test-cumming-plots.R#76)  ───────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming multi two-groups paired slopegraph", cumming.multi.two.group.paired.slope) at testthat/test-cumming-plots.R:76
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 7. Error: Cumming shared control (@test-cumming-plots.R#105)  ───────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming shared control", shared.control.plot) at testthat/test-cumming-plots.R:105
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 8. Error: Cumming multi-group shared control (@test-cumming-plots.R#126)  ───
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Cumming multi-group shared control", multi.group.shared.control.plot) at testthat/test-cumming-plots.R:126
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 9. Error: Gardner-Altman unpaired (@test-gardner-altman-plots.R#16)  ────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Gardner-Altman unpaired", gardner.altman.unpaired) at testthat/test-gardner-altman-plots.R:16
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 10. Error: Gardner-Altman unpaired reverse (@test-gardner-altman-plots.R#32) 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Gardner-Altman unpaired reverse", gardner.altman.unpaired.rev) at testthat/test-gardner-altman-plots.R:32
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 11. Error: Gardner-Altman paired (@test-gardner-altman-plots.R#48)  ─────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Gardner-Altman paired", gardner.altman.paired) at testthat/test-gardner-altman-plots.R:48
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 12. Error: Gardner-Altman paired reverse (@test-gardner-altman-plots.R#65)  ─
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Gardner-Altman paired reverse", gardner.altman.paired.rev) at testthat/test-gardner-altman-plots.R:65
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 74 SKIPPED: 0 FAILED: 12
  1. Error: Gardner-Altman custom aesthetics (@test-aesthetics.R#28) 
  2. Error: Cumming custom aesthetics (@test-aesthetics.R#140) 
  3. Error: Cumming two-groups unpaired (@test-cumming-plots.R#17) 
  4. Error: Cumming two-groups paired (@test-cumming-plots.R#36) 
  5. Error: Cumming multi two-groups unpaired (@test-cumming-plots.R#56) 
  6. Error: Cumming multi two-groups paired (@test-cumming-plots.R#76) 
  7. Error: Cumming shared control (@test-cumming-plots.R#105) 
  8. Error: Cumming multi-group shared control (@test-cumming-plots.R#126) 
  9. Error: Gardner-Altman unpaired (@test-gardner-altman-plots.R#16) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted