Running ‘testthat.R’ [47s/50s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(GGally)
  Loading required package: ggplot2
  Registered S3 method overwritten by 'GGally':
    method from   
    +.gg   ggplot2
  > 
  > test_check("GGally")
  ── 1. Error: denstrip (@test-gg-plots.R#13)  ───────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_message(suppressWarnings(print(ggally_denstrip(tips, mapping = aes_string("sex", 
         "tip")))), "`stat_bin()` using `bins = 30`", fixed = TRUE) at testthat/test-gg-plots.R:13
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: suppressWarnings(print(ggally_denstrip(tips, mapping = aes_string("sex", "tip"))))
  7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  8: print(ggally_denstrip(tips, mapping = aes_string("sex", "tip")))
  9: print.ggplot(ggally_denstrip(tips, mapping = aes_string("sex", "tip")))
  10: ggplot_gtable(data)
  11: ggplot_gtable.ggplot_built(data)
  12: layout$render(geom_grobs, data, theme, plot$labels)
  13: f(..., self = self)
  14: 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)
  15: f(...)
  16: render_strips(col_vars, row_vars, params$labeller, theme)
  17: build_strip(x, labeller, theme, TRUE)
  18: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  19: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 2. Error: cor (@test-gg-plots.R#67)  ────────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggally_cor(ti, ggplot2::aes(x = total_bill, y = tip, color = I("green")))) at testthat/test-gg-plots.R:67
  2: testthat::expect_silent(print(x)) at testthat/test-gg-plots.R:9
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  16: preDraw(x)
  17: preDraw.gTree(x)
  18: pushvpgp(x)
  19: pushgrobvp(x$vp)
  20: pushgrobvp.viewport(x$vp)
  21: pushViewport(vp, recording = FALSE)
  22: lapply(vps, push.vp, recording)
  23: FUN(X[[i]], ...)
  24: push.vp.viewport(X[[i]], ...)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 3. Error: rescale (@test-gg-plots.R#149)  ───────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(p) at testthat/test-gg-plots.R:149
  2: testthat::expect_silent(print(x)) at testthat/test-gg-plots.R:9
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  16: preDraw(x)
  17: preDraw.gTree(x)
  18: pushvpgp(x)
  19: pushgrobvp(x$vp)
  20: pushgrobvp.viewport(x$vp)
  21: pushViewport(vp, recording = FALSE)
  22: lapply(vps, push.vp, recording)
  23: FUN(X[[i]], ...)
  24: push.vp.viewport(X[[i]], ...)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 4. Error: shrink (@test-gg-plots.R#173)  ────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(p) at testthat/test-gg-plots.R:173
  2: testthat::expect_silent(print(x)) at testthat/test-gg-plots.R:9
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  16: preDraw(x)
  17: preDraw.gTree(x)
  18: pushvpgp(x)
  19: pushgrobvp(x$vp)
  20: pushgrobvp.viewport(x$vp)
  21: pushViewport(vp, recording = FALSE)
  22: lapply(vps, push.vp, recording)
  23: FUN(X[[i]], ...)
  24: push.vp.viewport(X[[i]], ...)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 5. Error: smooth_se (@test-gg-plots.R#183)  ─────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(p) at testthat/test-gg-plots.R:183
  2: testthat::expect_silent(print(x)) at testthat/test-gg-plots.R:9
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  16: preDraw(x)
  17: preDraw.gTree(x)
  18: pushvpgp(x)
  19: pushgrobvp(x$vp)
  20: pushgrobvp.viewport(x$vp)
  21: pushViewport(vp, recording = FALSE)
  22: lapply(vps, push.vp, recording)
  23: FUN(X[[i]], ...)
  24: push.vp.viewport(X[[i]], ...)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 6. Error: example (@test-ggcoef.R#11)  ──────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggcoef(reg)) at testthat/test-ggcoef.R:11
  2: expect_silent(print(x)) at testthat/test-ggcoef.R:8
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  16: preDraw(x)
  17: preDraw.gTree(x)
  18: pushvpgp(x)
  19: pushgrobvp(x$vp)
  20: pushgrobvp.viewport(x$vp)
  21: pushViewport(vp, recording = FALSE)
  22: lapply(vps, push.vp, recording)
  23: FUN(X[[i]], ...)
  24: push.vp.viewport(X[[i]], ...)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 7. Error: limits (@test-ggcorr.R#9)  ────────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: print(ggcorr(flea[, -1])) at testthat/test-ggcorr.R:9
  2: print.ggplot(ggcorr(flea[, -1]))
  3: ggplot_gtable(data)
  4: ggplot_gtable.ggplot_built(data)
  5: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  6: guides_gengrob(gdefs, theme)
  7: lapply(gdefs, guide_gengrob, theme)
  8: FUN(X[[i]], ...)
  9: guide_gengrob.colorbar(X[[i]], ...)
  10: width_cm(grob.title)
  ...
  16: pushvpgp(x)
  17: pushgrobvp(x$vp)
  18: pushgrobvp.viewport(x$vp)
  19: pushViewport(vp, recording = FALSE)
  20: lapply(vps, push.vp, recording)
  21: FUN(X[[i]], ...)
  22: push.vp.vpTree(X[[i]], ...)
  23: push.vp(vp$parent, recording)
  24: push.vp.viewport(vp$parent, recording)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 8. Error: generally works (@test-ggfacet.R#24)  ─────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggfacet(NIR_sub, columnsY = 1:2, columnsX = 3:5, fn = ggally_smooth_loess)) at testthat/test-ggfacet.R:24
  2: testthat::expect_silent(print(p)) at testthat/test-ggfacet.R:4
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p)
  11: print.ggplot(p)
  12: ggplot_gtable(data)
  13: ggplot_gtable.ggplot_built(data)
  14: layout$render(geom_grobs, data, theme, plot$labels)
  15: f(..., self = self)
  16: 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)
  17: f(...)
  18: render_strips(col_vars, row_vars, params$labeller, theme)
  19: build_strip(x, labeller, theme, TRUE)
  20: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  21: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 9. Error: generally works (@test-ggfacet.R#36)  ─────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggfacet(NIR_sub, columnsY = 1:2, columnsX = 3:5, fn = ggally_smooth_loess)) at testthat/test-ggfacet.R:36
  2: testthat::expect_silent(print(p)) at testthat/test-ggfacet.R:4
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p)
  11: print.ggplot(p)
  12: ggplot_gtable(data)
  13: ggplot_gtable.ggplot_built(data)
  14: layout$render(geom_grobs, data, theme, plot$labels)
  15: f(..., self = self)
  16: 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)
  17: f(...)
  18: render_strips(col_vars, row_vars, params$labeller, theme)
  19: build_strip(x, labeller, theme, TRUE)
  20: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  21: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 10. Error: examples (@test-gglegend.R#29)  ──────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_legend(right) at testthat/test-gglegend.R:29
  2: grab_legend(p) at testthat/test-gglegend.R:22
  3: ggplot_gtable(builtP)
  4: ggplot_gtable.ggplot_built(builtP)
  5: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  6: guides_gengrob(gdefs, theme)
  7: lapply(gdefs, guide_gengrob, theme)
  8: FUN(X[[i]], ...)
  9: guide_gengrob.legend(X[[i]], ...)
  10: width_cm(grob.title)
  ...
  16: pushvpgp(x)
  17: pushgrobvp(x$vp)
  18: pushgrobvp.viewport(x$vp)
  19: pushViewport(vp, recording = FALSE)
  20: lapply(vps, push.vp, recording)
  21: FUN(X[[i]], ...)
  22: push.vp.vpTree(X[[i]], ...)
  23: push.vp(vp$parent, recording)
  24: push.vp.viewport(vp$parent, recording)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 11. Error: legend (@test-gglegend.R#40)  ────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggally_points(iris, ggplot2::aes(Sepal.Length, Sepal.Width, color = Species))) at testthat/test-gglegend.R:40
  2: testthat::expect_silent(print(p)) at testthat/test-gglegend.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p)
  ...
  25: pushvpgp(x)
  26: pushgrobvp(x$vp)
  27: pushgrobvp.viewport(x$vp)
  28: pushViewport(vp, recording = FALSE)
  29: lapply(vps, push.vp, recording)
  30: FUN(X[[i]], ...)
  31: push.vp.vpTree(X[[i]], ...)
  32: push.vp(vp$parent, recording)
  33: push.vp.viewport(vp$parent, recording)
  34: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 12. Error: plotNew (@test-gglegend.R#91)  ───────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(points_legend(iris, ggplot2::aes(Sepal.Length, Sepal.Width, color = Species))) at testthat/test-gglegend.R:91
  2: testthat::expect_silent(print(p)) at testthat/test-gglegend.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p)
  ...
  26: pushvpgp(x)
  27: pushgrobvp(x$vp)
  28: pushgrobvp.viewport(x$vp)
  29: pushViewport(vp, recording = FALSE)
  30: lapply(vps, push.vp, recording)
  31: FUN(X[[i]], ...)
  32: push.vp.vpTree(X[[i]], ...)
  33: push.vp(vp$parent, recording)
  34: push.vp.viewport(vp$parent, recording)
  35: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 13. Error: expression labels (@test-ggmatrix.R#32)  ─────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggpairs(tips, 1:2, columnLabels = exprs, labeller = "label_parsed")) at testthat/test-ggmatrix.R:32
  2: testthat::expect_silent(print(x)) at testthat/test-ggmatrix.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  14: ggplot_gtable(ggplot_build(p))
  15: ggplot_gtable.ggplot_built(ggplot_build(p))
  16: layout$render(geom_grobs, data, theme, plot$labels)
  17: f(..., self = self)
  18: 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)
  19: f(...)
  20: render_strips(col_vars, row_vars, params$labeller, theme)
  21: build_strip(x, labeller, theme, TRUE)
  22: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  23: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 14. Error: missing plot (@test-ggmatrix.R#93)  ──────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: print(a) at testthat/test-ggmatrix.R:93
  2: print.ggmatrix(a)
  3: ggmatrix_gtable(x, ...)
  4: plot_gtable(pm_fake)
  5: ggplot_gtable(ggplot_build(p))
  6: ggplot_gtable.ggplot_built(ggplot_build(p))
  7: layout$render(geom_grobs, data, theme, plot$labels)
  8: f(..., self = self)
  9: 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)
  10: f(...)
  11: render_strips(col_vars, row_vars, params$labeller, theme)
  12: build_strip(x, labeller, theme, TRUE)
  13: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  14: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 15. Error: blank (@test-ggmatrix.R#122)  ────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(pm) at testthat/test-ggmatrix.R:122
  2: testthat::expect_silent(print(x)) at testthat/test-ggmatrix.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  14: ggplot_gtable(ggplot_build(p))
  15: ggplot_gtable.ggplot_built(ggplot_build(p))
  16: layout$render(geom_grobs, data, theme, plot$labels)
  17: f(..., self = self)
  18: 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)
  19: f(...)
  20: render_strips(col_vars, row_vars, params$labeller, theme)
  21: build_strip(x, labeller, theme, TRUE)
  22: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  23: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 16. Error: proportions (@test-ggmatrix.R#149)  ──────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(pm2) at testthat/test-ggmatrix.R:149
  2: testthat::expect_silent(print(x)) at testthat/test-ggmatrix.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  31: pushvpgp(x)
  32: pushgrobvp(x$vp)
  33: pushgrobvp.viewport(x$vp)
  34: pushViewport(vp, recording = FALSE)
  35: lapply(vps, push.vp, recording)
  36: FUN(X[[i]], ...)
  37: push.vp.vpTree(X[[i]], ...)
  38: push.vp(vp$parent, recording)
  39: push.vp.viewport(vp$parent, recording)
  40: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 17. Error: ggmatrix_gtable progress (@test-ggmatrix.R#159)  ─────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_silent({
         pg <- ggmatrix_gtable(pm)
     }) at testthat/test-ggmatrix.R:159
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: ggmatrix_gtable(pm) at testthat/test-ggmatrix.R:160
  10: plot_gtable(pm_fake)
  11: ggplot_gtable(ggplot_build(p))
  12: ggplot_gtable.ggplot_built(ggplot_build(p))
  13: layout$render(geom_grobs, data, theme, plot$labels)
  14: f(..., self = self)
  15: 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)
  16: f(...)
  17: render_strips(col_vars, row_vars, params$labeller, theme)
  18: build_strip(x, labeller, theme, TRUE)
  19: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  20: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 18. Error: ggnostic mtcars (@test-ggnostic.R#71)  ───────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(pm) at testthat/test-ggnostic.R:71
  2: testthat::expect_silent({
         print(p)
     }) at testthat/test-ggnostic.R:4
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p) at testthat/test-ggnostic.R:5
  ...
  14: ggplot_gtable(ggplot_build(p))
  15: ggplot_gtable.ggplot_built(ggplot_build(p))
  16: layout$render(geom_grobs, data, theme, plot$labels)
  17: f(..., self = self)
  18: 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)
  19: f(...)
  20: render_strips(col_vars, row_vars, params$labeller, theme)
  21: build_strip(x, labeller, theme, TRUE)
  22: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  23: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 19. Error: ggsave (@test-ggsave.R#18)  ──────────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_silent({
         ggsave(test_file, pm, width = 7, height = 7)
     }) at testthat/test-ggsave.R:18
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: ggsave(test_file, pm, width = 7, height = 7) at testthat/test-ggsave.R:19
  10: grid.draw(plot)
  ...
  16: ggplot_gtable(ggplot_build(p))
  17: ggplot_gtable.ggplot_built(ggplot_build(p))
  18: layout$render(geom_grobs, data, theme, plot$labels)
  19: f(..., self = self)
  20: 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)
  21: f(...)
  22: render_strips(col_vars, row_vars, params$labeller, theme)
  23: build_strip(x, labeller, theme, TRUE)
  24: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  25: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 20. Error: multiple colors (@test-ggsurv.R#130)  ────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(ggsurv(sf.kid, plot.cens = TRUE)) at testthat/test-ggsurv.R:130
  2: testthat::expect_silent(print(x)) at testthat/test-ggsurv.R:12
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(x)
  ...
  25: pushvpgp(x)
  26: pushgrobvp(x$vp)
  27: pushgrobvp.viewport(x$vp)
  28: pushViewport(vp, recording = FALSE)
  29: lapply(vps, push.vp, recording)
  30: FUN(X[[i]], ...)
  31: push.vp.vpTree(X[[i]], ...)
  32: push.vp(vp$parent, recording)
  33: push.vp.viewport(vp$parent, recording)
  34: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 21. Error: axisLabels (@test-zzz_ggpairs.R#362)  ────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_obj(fn(axisLabels), axisLabels) at testthat/test-zzz_ggpairs.R:362
  2: expect_print(pm) at testthat/test-zzz_ggpairs.R:347
  3: testthat::expect_silent(print(p)) at testthat/test-zzz_ggpairs.R:6
  4: quasi_capture(enquo(object), evaluate_promise)
  5: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  6: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  7: force(code)
  8: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  9: withVisible(code)
  10: eval_bare(get_expr(quo), get_env(quo))
  ...
  15: ggplot_gtable(ggplot_build(p))
  16: ggplot_gtable.ggplot_built(ggplot_build(p))
  17: layout$render(geom_grobs, data, theme, plot$labels)
  18: f(..., self = self)
  19: 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)
  20: f(...)
  21: render_strips(col_vars, row_vars, params$labeller, theme)
  22: build_strip(x, labeller, theme, TRUE)
  23: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  24: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 22. Error: strips and axis (@test-zzz_ggpairs.R#401)  ───────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(pm) at testthat/test-zzz_ggpairs.R:401
  2: testthat::expect_silent(print(p)) at testthat/test-zzz_ggpairs.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p)
  ...
  14: ggplot_gtable(ggplot_build(p))
  15: ggplot_gtable.ggplot_built(ggplot_build(p))
  16: layout$render(geom_grobs, data, theme, plot$labels)
  17: f(..., self = self)
  18: 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)
  19: f(...)
  20: render_strips(col_vars, row_vars, params$labeller, theme)
  21: build_strip(x, labeller, theme, TRUE)
  22: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  23: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 23. Error: strip-top and strip-right (@test-zzz_ggpairs.R#545)  ─────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_print(pm) at testthat/test-zzz_ggpairs.R:545
  2: testthat::expect_silent(print(p)) at testthat/test-zzz_ggpairs.R:6
  3: quasi_capture(enquo(object), evaluate_promise)
  4: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  5: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  6: force(code)
  7: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: print(p)
  ...
  14: ggplot_gtable(ggplot_build(p))
  15: ggplot_gtable.ggplot_built(ggplot_build(p))
  16: layout$render(geom_grobs, data, theme, plot$labels)
  17: f(..., self = self)
  18: 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)
  19: f(...)
  20: render_strips(col_vars, row_vars, params$labeller, theme)
  21: build_strip(x, labeller, theme, TRUE)
  22: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  23: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 639 SKIPPED: 0 FAILED: 23
  1. Error: denstrip (@test-gg-plots.R#13) 
  2. Error: cor (@test-gg-plots.R#67) 
  3. Error: rescale (@test-gg-plots.R#149) 
  4. Error: shrink (@test-gg-plots.R#173) 
  5. Error: smooth_se (@test-gg-plots.R#183) 
  6. Error: example (@test-ggcoef.R#11) 
  7. Error: limits (@test-ggcorr.R#9) 
  8. Error: generally works (@test-ggfacet.R#24) 
  9. Error: generally works (@test-ggfacet.R#36) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted