Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [17s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(saros)
  > 
  > testthat::test_check("saros")
  Starting 2 test processes
  [ FAIL 1 | WARN 2 | SKIP 0 | PASS 224 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-make_content.cat_plot_html.R:2:5'): show.legend works with unused categories ──
  Error in `(function (mapping = NULL, data = NULL, stat = "identity", position = "stack", 
      ..., just = 0.5, lineend = "butt", linejoin = "mitre", na.rm = FALSE, 
      show.legend = NA, inherit.aes = TRUE) 
  {
      layer(mapping = mapping, data = data, geom = "col", stat = stat, 
          position = position, show.legend = show.legend, inherit.aes = inherit.aes, 
          params = list2(na.rm = na.rm, just = just, lineend = lineend, 
              linejoin = linejoin, ...))
  })(mapping = structure(list(), class = c("ggplot2::mapping", 
  "uneval", "gg", "S7_object"), S7_class = structure(function (x = list(), 
      ..., env = globalenv()) 
  {
      warn_dots_empty()
      check_object(x, is.list, "a {.cls list}")
      x <- lapply(x, new_aesthetic, env = env)
      x <- S7::new_object(x)
      class(x) <- union(c("ggplot2::mapping", "uneval"), class(x))
      x
  }, name = "mapping", parent = structure(list(class = "gg", constructor = function (.data) 
  {
      stop(sprintf("S3 class <%s> doesn't have a constructor", 
          class[[1]]), call. = FALSE)
  }, validator = NULL), class = "S7_S3_class"), package = "ggplot2", properties = list(), abstract = FALSE, constructor = function (x = list(), 
      ..., env = globalenv()) 
  {
      warn_dots_empty()
      check_object(x, is.list, "a {.cls list}")
      x <- lapply(x, new_aesthetic, env = env)
      x <- S7::new_object(x)
      class(x) <- union(c("ggplot2::mapping", "uneval"), class(x))
      x
  }, class = c("S7_class", "S7_object")), names = character(0)), 
      position = <environment>, na.rm = TRUE, show.legend = TRUE)`: Problem while converting geom to grob.
  i Error occurred in the 1st layer.
  Caused by error in `draw_panel()`:
  ! unused arguments (lineend = "butt", linejoin = "mitre")
  Backtrace:
       ▆
    1. ├─vdiffr::expect_doppelganger(...) at test-make_content.cat_plot_html.R:2:5
    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(...)
   25. └─base::.handleSimpleError(...)
   26.   └─rlang (local) h(simpleError(msg, call))
   27.     └─handlers[[1L]](cnd)
   28.       └─cli::cli_abort(...)
   29.         └─rlang::abort(...)
  
  [ FAIL 1 | WARN 2 | SKIP 0 | PASS 224 ]
  Error: Test failures
  Execution halted