Running examples in ‘see-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: geom_from_list
> ### Title: Create ggplot2 geom(s) from a list
> ### Aliases: geom_from_list geoms_from_list
> 
> ### ** Examples
> 
> ## Don't show: 
> if (require("ggside") && require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(ggplot2)
+ 
+ # Example 1 (basic geoms and labels) --------------------------
+ l1 <- list(
+   geom = "point",
+   data = mtcars,
+   aes = list(x = "mpg", y = "wt", size = "hp", color = "hp"),
+   show.legend = c("size" = FALSE)
+ )
+ l2 <- list(
+   geom = "labs",
+   title = "A Title"
+ )
+ 
+ ggplot() +
+   geom_from_list(l1) +
+   geom_from_list(l2)
+ 
+ ggplot() +
+   geoms_from_list(list(l1 = l1, l2 = l2))
+ 
+ # Example 2 (Violin, boxplots, ...) --------------------------
+ l1 <- list(
+   geom = "violin",
+   data = iris,
+   aes = list(x = "Species", y = "Sepal.Width")
+ )
+ l2 <- list(
+   geom = "boxplot",
+   data = iris,
+   aes = list(x = "Species", y = "Sepal.Width"),
+   outlier.shape = NA
+ )
+ l3 <- list(
+   geom = "jitter",
+   data = iris,
+   width = 0.1,
+   aes = list(x = "Species", y = "Sepal.Width")
+ )
+ 
+ ggplot() +
+   geom_from_list(l1) +
+   geom_from_list(l2) +
+   geom_from_list(l3)
+ 
+ # Example 3 (2D density) --------------------------
+ ggplot() +
+   geom_from_list(list(
+     geom = "density_2d", data = iris,
+     aes = list(x = "Sepal.Width", y = "Petal.Length")
+   ))
+ ggplot() +
+   geom_from_list(list(
+     geom = "density_2d_filled", data = iris,
+     aes = list(x = "Sepal.Width", y = "Petal.Length")
+   ))
+ ggplot() +
+   geom_from_list(list(
+     geom = "density_2d_polygon", data = iris,
+     aes = list(x = "Sepal.Width", y = "Petal.Length")
+   ))
+ ggplot() +
+   geom_from_list(list(
+     geom = "density_2d_raster", data = iris,
+     aes = list(x = "Sepal.Width", y = "Petal.Length")
+   )) +
+   scale_x_continuous(expand = c(0, 0)) +
+   scale_y_continuous(expand = c(0, 0))
+ 
+ # Example 4 (facet and coord flip) --------------------------
+ 
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+   geom_point() +
+   geom_from_list(list(geom = "hline", yintercept = 2)) +
+   geom_from_list(list(geom = "coord_flip")) +
+   geom_from_list(list(geom = "facet_wrap", facets = "~ Species", scales = "free"))
+ 
+ # Example 5 (theme and scales) --------------------------
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+   geom_point() +
+   geom_from_list(list(geom = "scale_color_viridis_d", option = "inferno")) +
+   geom_from_list(list(geom = "theme", legend.position = "top"))
+ 
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+   geom_point() +
+   geom_from_list(list(geom = "scale_color_material_d", palette = "rainbow")) +
+   geom_from_list(list(geom = "theme_void"))
+ 
+ # Example 5 (Smooths and side densities) --------------------------
+ 
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+   geom_from_list(list(geom = "point")) +
+   geom_from_list(list(geom = "smooth", color = "red")) +
+   geom_from_list(list(aes = list(x = "Sepal.Length"), geom = "ggside::geom_xsidedensity")) +
+   geom_from_list(list(geom = "ggside::scale_xsidey_continuous", breaks = NULL))
+ ## Don't show: 
+ }) # examplesIf
Loading required package: ggside
Loading required package: ggplot2
> library(ggplot2)
> l1 <- list(geom = "point", data = mtcars, aes = list(x = "mpg", y = "wt", 
+     size = "hp", color = "hp"), show.legend = c(size = FALSE))
> l2 <- list(geom = "labs", title = "A Title")
> ggplot() + geom_from_list(l1) + geom_from_list(l2)
> ggplot() + geoms_from_list(list(l1 = l1, l2 = l2))
> l1 <- list(geom = "violin", data = iris, aes = list(x = "Species", y = "Sepal.Width"))
> l2 <- list(geom = "boxplot", data = iris, aes = list(x = "Species", y = "Sepal.Width"), 
+     outlier.shape = NA)
> l3 <- list(geom = "jitter", data = iris, width = 0.1, aes = list(x = "Species", 
+     y = "Sepal.Width"))
> ggplot() + geom_from_list(l1) + geom_from_list(l2) + geom_from_list(l3)
Warning in geom_from_list(l2) :
  Ignoring unknown parameters: `outlier.shape`
> ggplot() + geom_from_list(list(geom = "density_2d", data = iris, aes = list(x = "Sepal.Width", 
+     y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_filled", data = iris, 
+     aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_polygon", data = iris, 
+     aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_raster", data = iris, 
+     aes = list(x = "Sepal.Width", y = "Petal.Length"))) + scale_x_continuous(expand = c(0, 
+     0)) + scale_y_continuous(expand = c(0, 0))
Error in `geom_from_list()`:
! Problem while mapping stat to aesthetics.
ℹ Error occurred in the 1st layer.
Caused by error:
! Aesthetics must be valid computed stats.
✖ The following aesthetics are invalid:
• `fill = after_stat(density)`
ℹ Did you map your stat in the wrong layer?
Backtrace:
     ▆
  1. └─(if (getRversion() >= "3.4") withAutoprint else force)(...)
  2.   └─base::source(...)
  3.     ├─base::print(yy$value)
  4.     └─ggplot2 (local) `print.ggplot2::ggplot`(yy$value)
  5.       ├─ggplot2::ggplot_build(x)
  6.       └─ggplot2 (local) `ggplot_build.ggplot2::ggplot`(x)
  7.         └─ggplot2:::by_layer(...)
  8.           ├─rlang::try_fetch(...)
  9.           │ ├─base::tryCatch(...)
 10.           │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11.           │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12.           │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 13.           │ └─base::withCallingHandlers(...)
 14.           └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 15.             └─l$map_statistic(d, plot)
 16.               └─ggplot2 (local) map_statistic(..., self = self)
 17.                 └─ggplot2:::check_nondata_cols(...)
 18.                   └─cli::cli_abort(c(problem, issues, i = hint), call = NULL)
 19.                     └─rlang::abort(...)
Execution halted