Running ‘testthat.R’ [4s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(gggenes)
  > 
  > test_check("gggenes")
  ── 1. Error: plot with geom_gene_arrow() looks the way it should (@test-geom_gen
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Basic plot", {
         example_genes$strand <- example_genes$strand == "forward"
         ggplot2::ggplot(example_genes, ggplot2::aes(xmin = start, xmax = end, y = molecule, 
             fill = gene, forward = strand)) + geom_gene_arrow() + ggplot2::facet_wrap(~molecule, 
             scales = "free", ncol = 1)
     }) at testthat/test-geom_gene_arrow.R:15
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  11: 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)
  12: f(...)
  13: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  14: build_strip(x, labeller, theme, TRUE)
  15: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  16: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 2. Error: plot with geom_gene_label() looks the way it should (@test-geom_gen
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Basic plot", {
         ggplot2::ggplot(example_genes, ggplot2::aes(xmin = start, xmax = end, y = molecule, 
             label = gene)) + geom_gene_arrow() + geom_gene_label() + ggplot2::facet_wrap(~molecule, 
             scales = "free", ncol = 1)
     }) at testthat/test-geom_gene_label.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: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  11: 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)
  12: f(...)
  13: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  14: build_strip(x, labeller, theme, TRUE)
  15: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  16: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 3. Error: plot with make_alignment_dummies() looks the way it should (@test-m
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Basic plot", {
         dummies <- make_alignment_dummies(example_genes, ggplot2::aes(xmin = start, xmax = end, 
             y = molecule, id = gene), on = "genE", side = "right")
         ggplot2::ggplot(example_genes, ggplot2::aes(xmin = start, xmax = end, y = molecule, 
             fill = gene)) + geom_gene_arrow() + ggplot2::geom_blank(data = dummies) + 
             ggplot2::facet_wrap(~molecule, scales = "free", ncol = 1)
     }) at testthat/test-make_alignment_dummies.R:22
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  11: 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)
  12: f(...)
  13: render_strips(structure(labels_df, type = "rows"), structure(labels_df, type = "cols"), 
         params$labeller, theme)
  14: build_strip(x, labeller, theme, TRUE)
  15: ggstrip(grobs, theme, element, gp, horizontal, clip = "on")
  16: Summary.unit(structure(c(4.4, 4.4), unit = 8L, class = c("margin", "unit")), na.rm = FALSE)
  
  ── 4. Error: plot with theme_genes() looks the way it should (@test-theme_genes.
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("Basic plot", {
         ggplot2::ggplot(example_genes, ggplot2::aes(xmin = start, xmax = end, y = molecule, 
             fill = gene)) + geom_gene_arrow(alpha = 0.5, linetype = 2, colour = "purple") + 
             theme_genes() + ggplot2::facet_wrap(~molecule, scales = "free", ncol = 1)
     }) at testthat/test-theme_genes.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: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: layout$render(geom_grobs, data, theme, plot$labels)
  10: f(..., self = self)
  ...
  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)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 4 SKIPPED: 0 FAILED: 4
  1. Error: plot with geom_gene_arrow() looks the way it should (@test-geom_gene_arrow.R#15) 
  2. Error: plot with geom_gene_label() looks the way it should (@test-geom_gene_label.R#16) 
  3. Error: plot with make_alignment_dummies() looks the way it should (@test-make_alignment_dummies.R#22) 
  4. Error: plot with theme_genes() looks the way it should (@test-theme_genes.R#16) 
  
  Error: testthat unit tests failed
  Execution halted