Last updated on 2025-09-11 21:50:51 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.0 | 6.11 | 100.05 | 106.16 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.2.0 | 4.87 | 68.94 | 73.81 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.2.0 | 159.82 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.2.0 | 150.37 | ERROR | |||
| r-devel-windows-x86_64 | 0.2.0 | 13.00 | 100.00 | 113.00 | ERROR | |
| r-patched-linux-x86_64 | 0.2.0 | 5.29 | 91.48 | 96.77 | OK | |
| r-release-linux-x86_64 | 0.1.0 | 5.15 | 92.42 | 97.57 | OK | |
| r-release-macos-arm64 | 0.2.0 | 46.00 | OK | |||
| r-release-macos-x86_64 | 0.2.0 | 99.00 | OK | |||
| r-release-windows-x86_64 | 0.2.0 | 11.00 | 98.00 | 109.00 | ERROR | |
| r-oldrel-macos-arm64 | 0.2.0 | 50.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.2.0 | 109.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.2.0 | 12.00 | 135.00 | 147.00 | OK |
Version: 0.2.0
Check: examples
Result: ERROR
Running examples in ‘ggEDA-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ggstack
> ### Title: AutoPlot an entire data.frame
> ### Aliases: ggstack
>
> ### ** Examples
>
>
> # Create Basic Plot
> ggstack(baseballfans, col_id = "ID", col_sort = "Glasses")
── Running ggstack ─────────────────────────────────────────────────────────────
── Sorting
• Sorting X axis by: Glasses
• Order type: frequency
• Sort order: descending
! Categorical columns must have <= 7 unique values to be visualised. Columns with too many unique values: Date (19)
── Generating Plot
ℹ Found 7 plottable columns in data
✔ Plotting column Glasses
✔ Plotting column Age
✔ Plotting column Gender
✔ Plotting column EyeColour
✔ Plotting column Height
✔ Plotting column HairColour
✔ Plotting column WearingHat
! Skipping column WearingHat_tooltip
! Skipping column Date
ℹ Stacking plots vertically
ℹ Making plot interactive since `interactive = TRUE`
Error:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `draw_panel()`:
! unused arguments (lineend = "butt", linejoin = "mitre")
Backtrace:
▆
1. ├─ggEDA::ggstack(baseballfans, col_id = "ID", col_sort = "Glasses")
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(...)
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
user system elapsed
ggparallel 3.895 0.153 5.467
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [16s/20s]
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.0
Check: examples
Result: ERROR
Running examples in ‘ggEDA-Ex.R’ failed
The error most likely occurred in:
> ### Name: ggstack
> ### Title: AutoPlot an entire data.frame
> ### Aliases: ggstack
>
> ### ** Examples
>
>
> # Create Basic Plot
> ggstack(baseballfans, col_id = "ID", col_sort = "Glasses")
── Running ggstack ─────────────────────────────────────────────────────────────
── Sorting
• Sorting X axis by: Glasses
• Order type: frequency
• Sort order: descending
! Categorical columns must have <= 7 unique values to be visualised. Columns with too many unique values: Date (19)
── Generating Plot
ℹ Found 7 plottable columns in data
✔ Plotting column Glasses
✔ Plotting column Age
✔ Plotting column Gender
✔ Plotting column EyeColour
✔ Plotting column Height
✔ Plotting column HairColour
✔ Plotting column WearingHat
! Skipping column WearingHat_tooltip
! Skipping column Date
ℹ Stacking plots vertically
ℹ Making plot interactive since `interactive = TRUE`
Error:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `draw_panel()`:
! unused arguments (lineend = "butt", linejoin = "mitre")
Backtrace:
▆
1. ├─ggEDA::ggstack(baseballfans, col_id = "ID", col_sort = "Glasses")
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(...)
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-release-windows-x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [39s/52s]
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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [37s/45s]
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
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.2.0
Check: tests
Result: ERROR
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
Flavors: r-devel-windows-x86_64, r-release-windows-x86_64