Running ‘testthat.R’ [7s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(sugarglider)
  > 
  > test_check("sugarglider")
  Saving _problems/test-geom_glyph_segment-57.R
  [ FAIL 1 | WARN 0 | SKIP 1 | PASS 11 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • On CRAN (1): 'test-geom_ribbon.R:69:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-geom_glyph_segment.R:57:3'): geom_segment_glyph and rescaling work ──
  Error in `geom_glyph_segment(width = 0.4, height = 0.1, ggplot2::aes(x_major = long, y_major = lat, x_minor = month, y_minor = tmin, yend_minor = tmax))`: Problem while converting geom to grob.
  i Error occurred in the 3rd layer.
  Caused by error in `loadNamespace()`:
  ! there is no package called 'ggiraph'
  Backtrace:
       ▆
    1. ├─vdiffr::expect_doppelganger("geom_glyph_segment_identity", p1) at test-geom_glyph_segment.R:57:3
    2. │ └─vdiffr (local) writer(fig, testcase, title)
    3. │   ├─vdiffr:::print_plot(plot, title)
    4. │   └─vdiffr:::print_plot.ggplot(plot, title)
    5. │     ├─base::print(p)
    6. │     └─ggplot2 (local) `print.ggplot2::ggplot`(p)
    7. │       ├─ggplot2::ggplot_gtable(data)
    8. │       └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(data)
    9. │         └─ggplot2:::by_layer(...)
   10. │           ├─rlang::try_fetch(...)
   11. │           │ ├─base::tryCatch(...)
   12. │           │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13. │           │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14. │           │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   15. │           │ └─base::withCallingHandlers(...)
   16. │           └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   17. │             └─l$draw_geom(d, layout)
   18. │               └─ggplot2 (local) draw_geom(..., self = self)
   19. │                 └─self$geom$draw_layer(...)
   20. │                   └─ggplot2 (local) draw_layer(..., self = self)
   21. │                     └─base::lapply(...)
   22. │                       └─ggplot2 (local) FUN(X[[i]], ...)
   23. │                         ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   24. │                         └─self$draw_panel(data, panel_params, coord)
   25. │                           └─sugarglider (local) draw_panel(...)
   26. ├─base::loadNamespace(x)
   27. │ ├─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   28. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
   29. │ │   └─base (local) doWithOneRestart(return(expr), restart)
   30. │ └─base::stop(cond)
   31. └─rlang (local) `<fn>`(`<pckgNtFE>`)
   32.   └─handlers[[1L]](cnd)
   33.     └─cli::cli_abort(...)
   34.       └─rlang::abort(...)
  
  [ FAIL 1 | WARN 0 | SKIP 1 | PASS 11 ]
  Deleting unused snapshots: 'geom_glyph_segment/geom-glyph-segment-all.svg',
  'geom_glyph_segment/geom-glyph-segment-global-rescale.svg', and
  'geom_glyph_segment/geom-glyph-segment-local-rescale.svg'
  Error:
  ! Test failures.
  Execution halted