Running 'testthat.R' [18s]
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/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(ggEDA)
  > 
  > test_check("ggEDA")
  [ FAIL 10 | WARN 0 | SKIP 2 | PASS 119 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • On CRAN (2): 'test-ggstack.R:181:3', 'test-ggstack.R:201:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-ggstack.R:14:3'): ggEDA works as expected ────────────────────
  `suppressMessages(ggstack(mtcars))` threw an unexpected error.
  Message: 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")
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(suppressMessages(ggstack(mtcars)), NA) at test-ggstack.R:14:3
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─base::suppressMessages(ggstack(mtcars))
    8. │ └─base::withCallingHandlers(...)
    9. ├─ggEDA::ggstack(mtcars)
   10. │ └─ggiraph::girafe(...)
   11. │   ├─base::tryCatch(...)
   12. │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13. │   ├─base::print(ggobj)
   14. │   └─patchwork:::print.patchwork(ggobj)
   15. │     └─patchwork:::build_patchwork(plot, plot$layout$guides %||% "auto")
   16. │       └─base::lapply(x$plots, plot_table, guides = guides)
   17. │         ├─patchwork (local) FUN(X[[i]], ...)
   18. │         └─patchwork:::plot_table.free_plot(X[[i]], ...)
   19. │           ├─patchwork:::plot_table(x, guides)
   20. │           └─patchwork:::plot_table.ggplot(x, guides)
   21. │             └─ggplot2::ggplotGrob(x)
   22. │               ├─ggplot2::ggplot_gtable(ggplot_build(x))
   23. │               └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(ggplot_build(x))
   24. │                 └─ggplot2:::by_layer(...)
   25. │                   ├─rlang::try_fetch(...)
   26. │                   │ ├─base::tryCatch(...)
   27. │                   │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   28. │                   │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   29. │                   │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   30. │                   │ └─base::withCallingHandlers(...)
   31. │                   └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   32. │                     └─l$draw_geom(d, layout)
   33. │                       └─ggplot2 (local) draw_geom(..., self = self)
   34. │                         └─self$geom$draw_layer(...)
   35. │                           └─ggplot2 (local) draw_layer(..., self = self)
   36. │                             └─base::lapply(...)
   37. │                               └─ggplot2 (local) FUN(X[[i]], ...)
   38. │                                 ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   39. │                                 └─self$draw_panel(...)
   40. └─base::.handleSimpleError(...)
   41.   └─rlang (local) h(simpleError(msg, call))
   42.     └─handlers[[1L]](cnd)
   43.       └─cli::cli_abort(...)
   44.         └─rlang::abort(...)
  ── Error ('test-ggstack.R:50:3'): ggEDA doesn't warn about columns the user isn't interested in [plain] ──
  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, ...))
  })(data = function (x) 
  {
      x[is.infinite(x[[colname]]), colname] <- NA
      return(x)
  }, 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)), 
      width = 0.9, na.rm = 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. ├─base::suppressMessages(...) at test-ggstack.R:50:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─testthat::expect_message(ggstack(df, verbose = 2), "Columns with too many unique values: Letters")
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─ggEDA::ggstack(df, verbose = 2)
   10. │ └─ggiraph::girafe(...)
   11. │   ├─base::tryCatch(...)
   12. │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13. │   ├─base::print(ggobj)
   14. │   └─patchwork:::print.patchwork(ggobj)
   15. │     └─patchwork:::build_patchwork(plot, plot$layout$guides %||% "auto")
   16. │       └─base::lapply(x$plots, plot_table, guides = guides)
   17. │         ├─patchwork (local) FUN(X[[i]], ...)
   18. │         └─patchwork:::plot_table.free_plot(X[[i]], ...)
   19. │           ├─patchwork:::plot_table(x, guides)
   20. │           └─patchwork:::plot_table.ggplot(x, guides)
   21. │             └─ggplot2::ggplotGrob(x)
   22. │               ├─ggplot2::ggplot_gtable(ggplot_build(x))
   23. │               └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(ggplot_build(x))
   24. │                 └─ggplot2:::by_layer(...)
   25. │                   ├─rlang::try_fetch(...)
   26. │                   │ ├─base::tryCatch(...)
   27. │                   │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   28. │                   │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   29. │                   │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   30. │                   │ └─base::withCallingHandlers(...)
   31. │                   └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   32. │                     └─l$draw_geom(d, layout)
   33. │                       └─ggplot2 (local) draw_geom(..., self = self)
   34. │                         └─self$geom$draw_layer(...)
   35. │                           └─ggplot2 (local) draw_layer(..., self = self)
   36. │                             └─base::lapply(...)
   37. │                               └─ggplot2 (local) FUN(X[[i]], ...)
   38. │                                 ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   39. │                                 └─self$draw_panel(...)
   40. └─base::.handleSimpleError(...)
   41.   └─rlang (local) h(simpleError(msg, call))
   42.     └─handlers[[1L]](cnd)
   43.       └─cli::cli_abort(...)
   44.         └─rlang::abort(...)
  ── Failure ('test-ggstack.R:58:3'): ggEDA returns a plot object ────────────────
  Expected `ggstack(data = mock_data, col_id = "ID", verbose = FALSE)` to run without any errors.
  i Actually got a <rlang_error> with text:
    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")
  ── Failure ('test-ggstack.R:59:3'): ggEDA returns a plot object ────────────────
  `result` is not an S3 object
  ── Failure ('test-ggstack.R:63:3'): ggEDA handles missing col_id gracefully ────
  Expected `ggstack(data = mock_data, verbose = FALSE)` to run without any errors.
  i Actually got a <rlang_error> with text:
    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")
  ── Failure ('test-ggstack.R:64:3'): ggEDA handles missing col_id gracefully ────
  `result` is not an S3 object
  ── Error ('test-ggstack.R:96:3'): ggEDA limits the number of plottable columns ──
  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, ...))
  })(data = function (x) 
  {
      x[is.infinite(x[[colname]]), colname] <- NA
      return(x)
  }, 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)), 
      width = 0.9, na.rm = 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. ├─testthat::expect_message(...) at test-ggstack.R:96:3
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─ggEDA::ggstack(data = data, max_plottable_cols = 10, verbose = FALSE)
    8. │ └─ggiraph::girafe(...)
    9. │   ├─base::tryCatch(...)
   10. │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   11. │   ├─base::print(ggobj)
   12. │   └─patchwork:::print.patchwork(ggobj)
   13. │     └─patchwork:::build_patchwork(plot, plot$layout$guides %||% "auto")
   14. │       └─base::lapply(x$plots, plot_table, guides = guides)
   15. │         ├─patchwork (local) FUN(X[[i]], ...)
   16. │         └─patchwork:::plot_table.free_plot(X[[i]], ...)
   17. │           ├─patchwork:::plot_table(x, guides)
   18. │           └─patchwork:::plot_table.ggplot(x, guides)
   19. │             └─ggplot2::ggplotGrob(x)
   20. │               ├─ggplot2::ggplot_gtable(ggplot_build(x))
   21. │               └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(ggplot_build(x))
   22. │                 └─ggplot2:::by_layer(...)
   23. │                   ├─rlang::try_fetch(...)
   24. │                   │ ├─base::tryCatch(...)
   25. │                   │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   26. │                   │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   27. │                   │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   28. │                   │ └─base::withCallingHandlers(...)
   29. │                   └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   30. │                     └─l$draw_geom(d, layout)
   31. │                       └─ggplot2 (local) draw_geom(..., self = self)
   32. │                         └─self$geom$draw_layer(...)
   33. │                           └─ggplot2 (local) draw_layer(..., self = self)
   34. │                             └─base::lapply(...)
   35. │                               └─ggplot2 (local) FUN(X[[i]], ...)
   36. │                                 ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   37. │                                 └─self$draw_panel(...)
   38. └─base::.handleSimpleError(...)
   39.   └─rlang (local) h(simpleError(msg, call))
   40.     └─handlers[[1L]](cnd)
   41.       └─cli::cli_abort(...)
   42.         └─rlang::abort(...)
  ── Error ('test-ggstack.R:161:3'): ggEDA can handle interactive and static plot settings ──
  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, ...))
  })(data = function (x) 
  {
      x[is.infinite(x[[colname]]), colname] <- NA
      return(x)
  }, 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)), 
      width = 0.9, na.rm = 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. ├─ggEDA::ggstack(data = mock_data, interactive = TRUE, verbose = FALSE) at test-ggstack.R:161:3
    2. │ └─ggiraph::girafe(...)
    3. │   ├─base::tryCatch(...)
    4. │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    5. │   ├─base::print(ggobj)
    6. │   └─patchwork:::print.patchwork(ggobj)
    7. │     └─patchwork:::build_patchwork(plot, plot$layout$guides %||% "auto")
    8. │       └─base::lapply(x$plots, plot_table, guides = guides)
    9. │         ├─patchwork (local) FUN(X[[i]], ...)
   10. │         └─patchwork:::plot_table.free_plot(X[[i]], ...)
   11. │           ├─patchwork:::plot_table(x, guides)
   12. │           └─patchwork:::plot_table.ggplot(x, guides)
   13. │             └─ggplot2::ggplotGrob(x)
   14. │               ├─ggplot2::ggplot_gtable(ggplot_build(x))
   15. │               └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(ggplot_build(x))
   16. │                 └─ggplot2:::by_layer(...)
   17. │                   ├─rlang::try_fetch(...)
   18. │                   │ ├─base::tryCatch(...)
   19. │                   │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   20. │                   │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21. │                   │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   22. │                   │ └─base::withCallingHandlers(...)
   23. │                   └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   24. │                     └─l$draw_geom(d, layout)
   25. │                       └─ggplot2 (local) draw_geom(..., self = self)
   26. │                         └─self$geom$draw_layer(...)
   27. │                           └─ggplot2 (local) draw_layer(..., self = self)
   28. │                             └─base::lapply(...)
   29. │                               └─ggplot2 (local) FUN(X[[i]], ...)
   30. │                                 ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   31. │                                 └─self$draw_panel(...)
   32. └─base::.handleSimpleError(...)
   33.   └─rlang (local) h(simpleError(msg, call))
   34.     └─handlers[[1L]](cnd)
   35.       └─cli::cli_abort(...)
   36.         └─rlang::abort(...)
  ── Failure ('test-ggstack.R:177:3'): ggEDA heirarchical sort works ─────────────
  Expected `ggstack(...)` to run without any errors.
  i Actually got a <rlang_error> with text:
    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")
  ── Failure ('test-ggstack.R:187:3'): ggEDA heirarchical sort works ─────────────
  Expected `ggstack(...)` to run without any errors.
  i Actually got a <rlang_error> with text:
    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")
  
  [ FAIL 10 | WARN 0 | SKIP 2 | PASS 119 ]
  Error: Test failures
  Execution halted