Running ‘testthat.R’ [1s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(blastula)
  > 
  > test_check("blastula")
  ── 1. Error: composing a message with local inline images is possible (@test-com
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: add_ggplot(plot, height = 5, width = 7) at testthat/test-compose_email.R:49
  2: ggplot2::ggsave(device = "png", plot = plot_object, filename = "temp_ggplot.png", 
         dpi = 100, width = width, height = height)
  3: grid.draw(plot)
  4: grid.draw.ggplot(plot)
  5: print(x)
  6: print.ggplot(x)
  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)
  
  ── 2. Error: creating a base64-encoded ggplot is possible (@test-helper_fcns.R#3
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: add_ggplot(plot_object = plot, height = 5, width = 7) at testthat/test-helper_fcns.R:37
  2: ggplot2::ggsave(device = "png", plot = plot_object, filename = "temp_ggplot.png", 
         dpi = 100, width = width, height = height)
  3: grid.draw(plot)
  4: grid.draw.ggplot(plot)
  5: print(x)
  6: print.ggplot(x)
  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)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 6 SKIPPED: 0 FAILED: 2
  1. Error: composing a message with local inline images is possible (@test-compose_email.R#49) 
  2. Error: creating a base64-encoded ggplot is possible (@test-helper_fcns.R#37) 
  
  Error: testthat unit tests failed
  Execution halted