Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(cowplot)
  Loading required package: ggplot2
  
  Attaching package: 'cowplot'
  
  The following object is masked from 'package:ggplot2':
  
      ggsave
  
  > 
  > test_check("cowplot")
  ── 1. Error: basic alignments, h, v, hv (@test_align_plots.R#7)  ───────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: align_plots(p1, p2, align = "h") at testthat/test_align_plots.R:7
  2: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$heights
     }))
  3: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(7, list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 1L), list(
         0, NULL, 1L), list(0, NULL, 1L), list(1, NULL, 5L), list(1, structure(list(list(
         3.5, NULL, 8L), list(1, structure(list(widths = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), heights = structure(list(2.9995, list(1, structure(list(list(1, structure(list(
         label = c("2.5", "5.0", "7.5", "10.0"), x = structure(c(0.196969696969697, 0.44949494949495, 
         0.702020202020202, 0.954545454545455), unit = 4L, class = c("simpleUnit", "unit"
         )), y = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
         just = "centre", hjust = 0.5, vjust = 1, rot = 0, check.overlap = FALSE, name = "GRID.text.13", 
         gp = structure(list(fontsize = 11.998, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc")), 22L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 201L), 0), class = "unit"), 
         name = "axis.text.x.bottom..titleGrob.15", gp = NULL, vp = structure(list(parent = structure(list(
             x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), justification = "centre", 
             gp = structure(list(fontsize = 11.998, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), clip = FALSE, xscale = c(0, 1
             ), yscale = c(0, 1), angle = 0, layout = structure(list(nrow = 3L, ncol = 1L, 
                 widths = structure(1, unit = 5L, class = c("simpleUnit", "unit")), heights = structure(list(
                     2.9995, list(1, structure(list(list(1, structure(list(label = c("2.5", 
                     "5.0", "7.5", "10.0"), x = structure(c(0.196969696969697, 0.44949494949495, 
                     0.702020202020202, 0.954545454545455), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.13", gp = structure(list(fontsize = 11.998, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 22L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 0), class = "unit"), respect = FALSE, 
                 valid.respect = 0L, respect.mat = structure(c(0L, 0L, 0L), .Dim = c(3L, 
                 1L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.1"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(2L, 
                 2L), layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = c(2L, 
                 2L), valid.pos.col = NULL, name = "GRID.VP.2"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.13 = structure(list(
             label = c("2.5", "5.0", "7.5", "10.0"), x = structure(c(0.196969696969697, 
             0.44949494949495, 0.702020202020202, 0.954545454545455), unit = 4L, class = c("simpleUnit", 
             "unit")), y = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 0, check.overlap = FALSE, 
             name = "GRID.text.13", gp = structure(list(fontsize = 11.998, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.13"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 22L)), class = "unit"), 201L), list(1, structure(list(
         widths = structure(1, unit = 5L, class = c("simpleUnit", "unit")), heights = structure(list(
             5.999, list(1, structure(list(list(1, structure(list(label = "1:10", x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                 name = "GRID.text.29", gp = structure(list(fontsize = 14, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 22L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.9995), class = "unit"), name = "axis.title.x.bottom..titleGrob.31", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 14, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 3L, ncol = 1L, widths = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), heights = structure(list(5.999, list(1, structure(list(list(
                     1, structure(list(label = "1:10", x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.29", gp = structure(list(fontsize = 14, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 22L), list(0.0366666666666667, 
                     NULL, 2L)), class = "unit"), 201L), 2.9995), class = "unit"), respect = FALSE, 
                 valid.respect = 0L, respect.mat = structure(c(0L, 0L, 0L), .Dim = c(3L, 
                 1L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.7"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(2L, 
                 2L), layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = c(2L, 
                 2L), valid.pos.col = NULL, name = "GRID.VP.8"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.29 = structure(list(
             label = "1:10", x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.29", 
             gp = structure(list(fontsize = 14, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.29"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 22L), list(0, NULL, 1L), list(0, NULL, 8L), 7), class = "unit"), 
         structure(list(0, list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 1L), list(
             0, NULL, 1L), list(0, NULL, 1L), list(1, NULL, 5L), list(1, structure(list(
             list(3.5, NULL, 8L), list(1, structure(list(widths = structure(1, unit = 5L, class = c("simpleUnit", 
             "unit")), heights = structure(list(2.9995, list(1, structure(list(list(1, 
                 structure(list(label = c("2.5", "5.0", "7.5", "10.0"), x = structure(c(0.196969696969697, 
                 0.44949494949495, 0.702020202020202, 0.954545454545455), unit = 4L, class = c("simpleUnit", 
                 "unit")), y = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.52", gp = structure(list(fontsize = 11.998, col = "black", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc")), 22L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 0), class = "unit"), name = "axis.text.x.bottom..titleGrob.54", 
                 gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(fontsize = 11.998, 
                       col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                       nrow = 3L, ncol = 1L, widths = structure(1, unit = 5L, class = c("simpleUnit", 
                       "unit")), heights = structure(list(2.9995, list(1, structure(list(
                         list(1, structure(list(label = c("2.5", "5.0", "7.5", "10.0"), 
                           x = structure(c(0.196969696969697, 0.44949494949495, 0.702020202020202, 
                           0.954545454545455), unit = 4L, class = c("simpleUnit", "unit"
                           )), y = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                           "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 0, 
                           check.overlap = FALSE, name = "GRID.text.52", gp = structure(list(
                             fontsize = 11.998, col = "black", fontfamily = "", lineheight = 0.9, 
                             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                         "grob", "gDesc")), 22L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
                         201L), 0), class = "unit"), respect = FALSE, valid.respect = 0L, 
                       respect.mat = structure(c(0L, 0L, 0L), .Dim = c(3L, 1L)), just = "centre", 
                       valid.just = c(0.5, 0.5)), class = "layout"), layout.pos.row = NULL, 
                     layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                     valid.pos.col = NULL, name = "GRID.VP.11"), class = "viewport"), 
                     children = structure(list(structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), justification = "centre", gp = structure(list(), class = "gpar"), 
                       clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                       layout.pos.row = c(2L, 2L), layout.pos.col = NULL, valid.just = c(0.5, 
                       0.5), valid.pos.row = c(2L, 2L), valid.pos.col = NULL, name = "GRID.VP.12"), class = "viewport")), class = c("vpList", 
                     "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                     GRID.text.52 = structure(list(label = c("2.5", "5.0", "7.5", "10.0"
                     ), x = structure(c(0.196969696969697, 0.44949494949495, 0.702020202020202, 
                     0.954545454545455), unit = 4L, class = c("simpleUnit", "unit")), 
                       y = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.52", gp = structure(list(fontsize = 11.998, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
                 childrenOrder = "GRID.text.52"), class = c("titleGrob", "gTree", "grob", 
             "gDesc")), 22L)), class = "unit"), 201L), list(1, structure(list(widths = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), heights = structure(list(5.999, list(1, structure(list(list(1, structure(list(
             label = "1:10", x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.68", 
             gp = structure(list(fontsize = 14, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 22L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.9995), class = "unit"), name = "axis.title.x.bottom..titleGrob.70", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 14, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 3L, ncol = 1L, widths = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), heights = structure(list(5.999, list(1, structure(list(
                       list(1, structure(list(label = "1:10", x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.68", gp = structure(list(fontsize = 14, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 22L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.9995), class = "unit"), 
                     respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(3L, 1L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.17"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = c(2L, 2L), layout.pos.col = NULL, valid.just = c(0.5, 
                     0.5), valid.pos.row = c(2L, 2L), valid.pos.col = NULL, name = "GRID.VP.18"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.68 = structure(list(label = "1:10", x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.68", gp = structure(list(fontsize = 14, col = "black", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.68"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 22L), list(0, NULL, 1L), list(0, NULL, 8L), 0), class = "unit"))
  4: pSummary(..., op = "max")
  
  ── 2. Error: complex alignments, h, v, hv (@test_align_plots.R#28)  ────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_warning(align_plots(p1, p2, align = "v")) at testthat/test_align_plots.R:28
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: align_plots(p1, p2, align = "v")
  7: lapply(plots, function(x) {
         if (!is.null(x)) 
             plot_to_gtable(x)
         else NULL
     })
  8: FUN(X[[i]], ...)
  9: plot_to_gtable(x)
  10: ggplot2::ggplotGrob(plot)
  11: ggplot_gtable(ggplot_build(x))
  12: ggplot_gtable.ggplot_built(ggplot_build(x))
  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(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  18: build_strip(x, labeller, theme, TRUE)
  19: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  20: Summary.unit(structure(c(0, 0), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 3. Error: get legend (@test_get_legend.R#6)  ────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: get_legend(p) at testthat/test_get_legend.R:6
  2: plot_to_gtable(plot)
  3: ggplot2::ggplotGrob(plot)
  4: ggplot_gtable(ggplot_build(x))
  5: ggplot_gtable.ggplot_built(ggplot_build(x))
  6: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  7: guides_gengrob(gdefs, theme)
  8: lapply(gdefs, guide_gengrob, theme)
  9: FUN(X[[i]], ...)
  10: guide_gengrob.legend(X[[i]], ...)
  ...
  17: pushvpgp(x)
  18: pushgrobvp(x$vp)
  19: pushgrobvp.viewport(x$vp)
  20: pushViewport(vp, recording = FALSE)
  21: lapply(vps, push.vp, recording)
  22: FUN(X[[i]], ...)
  23: push.vp.vpTree(X[[i]], ...)
  24: push.vp(vp$parent, recording)
  25: push.vp.viewport(vp$parent, recording)
  26: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 4. Error: get panel (@test_get_panel.R#6)  ──────────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: get_panel(p) at testthat/test_get_panel.R:6
  2: plot_to_gtable(plot)
  3: ggplot2::ggplotGrob(plot)
  4: ggplot_gtable(ggplot_build(x))
  5: ggplot_gtable.ggplot_built(ggplot_build(x))
  6: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  7: guides_gengrob(gdefs, theme)
  8: lapply(gdefs, guide_gengrob, theme)
  9: FUN(X[[i]], ...)
  10: guide_gengrob.legend(X[[i]], ...)
  ...
  17: pushvpgp(x)
  18: pushgrobvp(x$vp)
  19: pushgrobvp.viewport(x$vp)
  20: pushViewport(vp, recording = FALSE)
  21: lapply(vps, push.vp, recording)
  22: FUN(X[[i]], ...)
  23: push.vp.vpTree(X[[i]], ...)
  24: push.vp(vp$parent, recording)
  25: push.vp.viewport(vp$parent, recording)
  26: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 3 SKIPPED: 0 FAILED: 4
  1. Error: basic alignments, h, v, hv (@test_align_plots.R#7) 
  2. Error: complex alignments, h, v, hv (@test_align_plots.R#28) 
  3. Error: get legend (@test_get_legend.R#6) 
  4. Error: get panel (@test_get_panel.R#6) 
  
  Error: testthat unit tests failed
  Execution halted