Running ‘testthat.R’ [8s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(wilson)
  
  Attaching package: 'wilson'
  
  The following object is masked from 'package:stats':
  
      heatmap
  
  > 
  > test_check("wilson")
  ── 1. Error: ggplot is downloadable (@test-download.R#11)  ─────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_silent(download(file = file, filename = filename, plot = plot, width = width, 
         height = height)) at testthat/test-download.R:11
  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: download(file = file, filename = filename, plot = plot, width = width, height = height)
  10: ggplot2::ggsave(plot_file_pdf, plot = plot, width = width, height = height, units = "cm", 
         device = "pdf", useDingbats = FALSE)
  ...
  19: preDraw(x)
  20: preDraw.gTree(x)
  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.viewport(X[[i]], ...)
  28: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: complexHeatmap is downloadable (@test-download.R#31)  ─────────────
  `heatmap_width` and `width` should not all be the absolute units.
  1: ComplexHeatmap::Heatmap(mtcars) at testthat/test-download.R:31
  2: stop_wrap("`heatmap_width` and `width` should not all be the absolute units.")
  3: stop(x, call. = FALSE)
  
  ── 3. Error: scatterplot can be created (@test-interactive-plots.R#6)  ─────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: create_scatterplot(data, highlight.data = data[1:3, ], highlight.color = "blue", 
         color = c("red", "green"), categorized = TRUE, plot.method = "interactive") at testthat/test-interactive-plots.R:6
  2: plotly::ggplotly(plot, width = width + legend.width, height = height, tooltip = "text")
  3: ggplotly.ggplot(plot, width = width + legend.width, height = height, tooltip = "text")
  4: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  5: unitConvert(theme$plot.margin, "pixels")
  6: grid::convertHeight(u, "npc")
  7: convertUnit(x, unitTo, "y", "dimension", "y", "dimension", valueOnly = valueOnly)
  8: grid.Call(C_convert, x, as.integer(whatfrom), as.integer(whatto), valid.units(unitTo))
  
  ── 4. Error: heatmap can be created (@test-interactive-plots.R#13)  ────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: create_heatmap(data, colors = c("red", "green"), plot.method = "interactive") at testthat/test-interactive-plots.R:13
  2: heatmaply::heatmaply(plot, plot_method = "ggplot", node_type = "heatmap", scale_fill_gradient_fun = ggplot2::scale_fill_gradientn(colors = colors, 
         name = unitlabel, limits = winsorize.colors, oob = scales::squish), heatmap_layers = ggplot2::theme(text = ggplot2::element_text(size = 12 * 
         scale)))
  3: heatmaply.heatmapr(plot, plot_method = "ggplot", node_type = "heatmap", scale_fill_gradient_fun = ggplot2::scale_fill_gradientn(colors = colors, 
         name = unitlabel, limits = winsorize.colors, oob = scales::squish), heatmap_layers = ggplot2::theme(text = ggplot2::element_text(size = 12 * 
         scale)))
  4: ggplotly(p, dynamicTicks = dynamicTicks, tooltip = "text") %>% layout(showlegend = TRUE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(p, dynamicTicks = dynamicTicks, tooltip = "text")
  8: ggplotly.ggplot(p, dynamicTicks = dynamicTicks, tooltip = "text")
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: unitConvert(theme$plot.margin, "pixels")
  11: grid::convertHeight(u, "npc")
  12: convertUnit(x, unitTo, "y", "dimension", "y", "dimension", valueOnly = valueOnly)
  13: grid.Call(C_convert, x, as.integer(whatfrom), as.integer(whatto), valid.units(unitTo))
  
  ── 5. Error: geneview can be created (@test-interactive-plots.R#21)  ───────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: create_geneview(data, grouping = grouping, colors = c("red", "green"), plot.method = "interactive") at testthat/test-interactive-plots.R:21
  2: plotly::ggplotly(tooltip = "text", matrixplot, width = width * (ppi/2.54), height = height * 
         (ppi/2.54))
  3: ggplotly.ggplot(tooltip = "text", matrixplot, width = width * (ppi/2.54), height = height * 
         (ppi/2.54))
  4: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  5: unitConvert(theme$plot.margin, "pixels")
  6: grid::convertHeight(u, "npc")
  7: convertUnit(x, unitTo, "y", "dimension", "y", "dimension", valueOnly = valueOnly)
  8: grid.Call(C_convert, x, as.integer(whatfrom), as.integer(whatto), valid.units(unitTo))
  
  ── 6. Error: scatterplot can be created (@test-static-plots.R#7)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("static scatterplot", out$plot) at testthat/test-static-plots.R:7
  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: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  10: guides_gengrob(gdefs, theme)
  ...
  20: pushvpgp(x)
  21: pushgrobvp(x$vp)
  22: pushgrobvp.viewport(x$vp)
  23: pushViewport(vp, recording = FALSE)
  24: lapply(vps, push.vp, recording)
  25: FUN(X[[i]], ...)
  26: push.vp.vpTree(X[[i]], ...)
  27: push.vp(vp$parent, recording)
  28: push.vp.viewport(vp$parent, recording)
  29: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 7. Error: pca can be created (@test-static-plots.R#15)  ─────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("static pca", out$plot) at testthat/test-static-plots.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: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  10: guides_gengrob(gdefs, theme)
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  Error : `heatmap_width` and `width` should not all be the absolute units.
  [1] "Error : `heatmap_width` and `width` should not all be the absolute units.\n"
  attr(,"class")
  [1] "try-error"
  attr(,"condition")
  <simpleError: `heatmap_width` and `width` should not all be the absolute units.>
  ── 8. Error: geneview can be created (@test-static-plots.R#30)  ────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("static geneview", out$plot) at testthat/test-static-plots.R:30
  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: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  10: guides_gengrob(gdefs, theme)
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 53 SKIPPED: 2 FAILED: 8
  1. Error: ggplot is downloadable (@test-download.R#11) 
  2. Error: complexHeatmap is downloadable (@test-download.R#31) 
  3. Error: scatterplot can be created (@test-interactive-plots.R#6) 
  4. Error: heatmap can be created (@test-interactive-plots.R#13) 
  5. Error: geneview can be created (@test-interactive-plots.R#21) 
  6. Error: scatterplot can be created (@test-static-plots.R#7) 
  7. Error: pca can be created (@test-static-plots.R#15) 
  8. Error: geneview can be created (@test-static-plots.R#30) 
  
  Error: testthat unit tests failed
  Execution halted