Running ‘testthat.R’ [18s/19s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(pROC)
  Type 'citation("pROC")' for a citation.
  
  Attaching package: 'pROC'
  
  The following objects are masked from 'package:stats':
  
      cov, smooth, var
  
  > data(aSAH)
  > 
  > # Set environment variable RUN_SLOW_TESTS to run the slower tests
  > run_slow_tests <- identical(Sys.getenv("RUN_SLOW_TESTS"), "true")
  > 
  > test_check("pROC")
  ── 1. Error: Ggroc screenshot looks normal (@test-ggroc.R#9)  ──────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("ggroc.screenshot", test_ggplot_screenshot) at testthat/test-ggroc.R:9
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.function(plot, title)
  5: p()
  6: print(ggroc(r.s100b.percent, , alpha = 0.5, colour = "red", linetype = 2, size = 2)) at testthat/test-ggroc.R:7
  7: print.ggplot(ggroc(r.s100b.percent, , alpha = 0.5, colour = "red", linetype = 2, 
         size = 2))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: Ggroc list screenshot looks normal (@test-ggroc.R#16)  ────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("ggroc.list.screenshot", test_ggplot_list_screenshot) at testthat/test-ggroc.R:16
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.function(plot, title)
  5: p()
  6: print(ggroc(list(s100b = r.s100b, wfns = r.wfns, ndka = r.ndka))) at testthat/test-ggroc.R:14
  7: print.ggplot(ggroc(list(s100b = r.s100b, wfns = r.wfns, ndka = r.ndka)))
  8: ggplot_gtable(data)
  9: ggplot_gtable.ggplot_built(data)
  10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  ...
  21: pushvpgp(x)
  22: pushgrobvp(x$vp)
  23: pushgrobvp.viewport(x$vp)
  24: pushViewport(vp, recording = FALSE)
  25: lapply(vps, push.vp, recording)
  26: FUN(X[[i]], ...)
  27: push.vp.vpTree(X[[i]], ...)
  28: push.vp(vp$parent, recording)
  29: push.vp.viewport(vp$parent, recording)
  30: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 3. Error: Ggroc list can take multiple aes (@test-ggroc.R#23)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("ggroc.list.multi.aes", test_ggplot_list_screenshot) at testthat/test-ggroc.R:23
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.function(plot, title)
  5: p()
  6: print(ggroc(list(s100b = r.s100b, wfns = r.wfns, ndka = r.ndka), aes = c("c", "linetype", 
         "size"))) at testthat/test-ggroc.R:21
  7: print.ggplot(ggroc(list(s100b = r.s100b, wfns = r.wfns, ndka = r.ndka), aes = c("c", 
         "linetype", "size")))
  8: ggplot_gtable(data)
  9: ggplot_gtable.ggplot_built(data)
  10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  ...
  21: pushvpgp(x)
  22: pushgrobvp(x$vp)
  23: pushgrobvp.viewport(x$vp)
  24: pushViewport(vp, recording = FALSE)
  25: lapply(vps, push.vp, recording)
  26: FUN(X[[i]], ...)
  27: push.vp.vpTree(X[[i]], ...)
  28: push.vp(vp$parent, recording)
  29: push.vp.viewport(vp$parent, recording)
  30: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 4. Error: Ggroc list extra aestetics screenshot looks normal (@test-ggroc.R#3
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("ggroc.list.extra.aes.screenshot", test_ggplot_list_extra_aes_screenshot) at testthat/test-ggroc.R:30
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.function(plot, title)
  5: p()
  6: print(ggroc(list(s100b = r.s100b, wfns = r.wfns, ndka = r.ndka), aes = "linetype", 
         color = "red")) at testthat/test-ggroc.R:28
  7: print.ggplot(ggroc(list(s100b = r.s100b, wfns = r.wfns, ndka = r.ndka), aes = "linetype", 
         color = "red"))
  8: ggplot_gtable(data)
  9: ggplot_gtable.ggplot_built(data)
  10: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  ...
  21: pushvpgp(x)
  22: pushgrobvp(x$vp)
  23: pushgrobvp.viewport(x$vp)
  24: pushViewport(vp, recording = FALSE)
  25: lapply(vps, push.vp, recording)
  26: FUN(X[[i]], ...)
  27: push.vp.vpTree(X[[i]], ...)
  28: push.vp(vp$parent, recording)
  29: push.vp.viewport(vp$parent, recording)
  30: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 5. Error: Ggroc list with group facet screenshot looks normal (@test-ggroc.R#
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("ggroc.list.group.facet.screenshot", test_ggplot_list_group_facet_screenshot) at testthat/test-ggroc.R:39
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.function(plot, title)
  5: p()
  6: print(g) at testthat/test-ggroc.R:37
  7: print.ggplot(g)
  8: ggplot_gtable(data)
  9: ggplot_gtable.ggplot_built(data)
  10: layout$render(geom_grobs, data, theme, plot$labels)
  11: f(..., self = self)
  12: self$facet$draw_panels(panels, self$layout, self$panel_scales_x, self$panel_scales_y, 
         self$panel_params, self$coord, data, theme, self$facet_params)
  13: f(...)
  14: render_strips(col_vars, row_vars, params$labeller, theme)
  15: build_strip(x, labeller, theme, TRUE)
  16: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  17: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 6907 SKIPPED: 18 FAILED: 5
  1. Error: Ggroc screenshot looks normal (@test-ggroc.R#9) 
  2. Error: Ggroc list screenshot looks normal (@test-ggroc.R#16) 
  3. Error: Ggroc list can take multiple aes (@test-ggroc.R#23) 
  4. Error: Ggroc list extra aestetics screenshot looks normal (@test-ggroc.R#30) 
  5. Error: Ggroc list with group facet screenshot looks normal (@test-ggroc.R#39) 
  
  Error: testthat unit tests failed
  Execution halted