Update default aesthetics to ggplot2 4.0.0 from_theme() defaults (#211)

* bump version

* replace default aes

* add news bullet

Author: teunbrand

DESCRIPTION

@@ -18,7 +18,7 @@ URL: https://github.com/teunbrand/ggh4x,
     https://teunbrand.github.io/ggh4x/
 BugReports: https://github.com/teunbrand/ggh4x/issues
 Depends: 
-    ggplot2 (>= 3.5.2)
+    ggplot2 (>= 4.0.0)
 Imports: 
     grid,
     gtable,

NEWS.md

@@ -1,5 +1,7 @@
 # ggh4x (development version)
 
+* Incorporated `from_theme()` in many default aesthetics, allow the new layer
+  defaults to be controlled from the theme (#210)
 * New `save_plot()` function that wraps `ggsave()` but automatically defaults
   its size to innate dimensions set by `force_panelsizes()` or the new 
   `theme(panel.widths, panel.heights)` settings (#187).

R/geom_box.R

@@ -84,10 +84,10 @@ GeomBox <- ggproto(
                    "ymin", "ymax", "y", "height"),
 
   default_aes = aes(
-    colour    = NA,
-    fill      = "grey35",
-    linewidth = 0.5,
-    linetype  = 1,
+    colour    = from_theme(colour %||% NA),
+    fill      = from_theme(fill %||% col_mix(ink, paper, 0.35)),
+    linewidth = from_theme(borderwidth),
+    linetype  = from_theme(bordertype),
     alpha     = NA
   ),
 

R/geom_outline_point.R

@@ -99,8 +99,13 @@ GeomOutlinePoint <- ggproto(
   "GeomOutlinePoint", GeomPoint,
 
   default_aes = aes(
-    shape = 16, colour = "grey50", size = 1.5, fill = NA,
-    alpha = NA, stroke = 0.5, stroke_colour = "black"
+    shape = from_theme(pointshape),
+    colour = from_theme(colour %||% col_mix(ink, paper)),
+    size = from_theme(pointsize),
+    fill = from_theme(fill %||% NA),
+    alpha = NA,
+    stroke = from_theme(borderwidth),
+    stroke_colour = from_theme(ink)
   ),
 
   draw_key = draw_key_outline_point,

R/geom_pointpath.R

@@ -126,8 +126,15 @@ GeomPointPath <- ggplot2::ggproto(
   },
   # Adding some defaults for lines and mult
   default_aes = ggplot2::aes(
-    shape = 19, colour = "black", size = 1.5, fill = NA, alpha = NA,
-    stroke = 0.5, linewidth = 0.5, linetype = 1, mult = 0.5
+    shape = from_theme(pointshape),
+    colour = from_theme(colour %||% ink),
+    size = from_theme(pointsize),
+    fill = from_theme(fill %||% NA),
+    alpha = NA,
+    stroke = from_theme(borderwidth),
+    linewidth = from_theme(linewidth),
+    linetype = from_theme(linetype),
+    mult = 0.5
   ),
   non_missing_aes = c("size", "colour")
 )

R/geom_rectrug.R

@@ -269,8 +269,13 @@ GeomRectMargin <- ggplot2::ggproto(
     grid::gTree(children = do.call(grid::gList, rugs))
   },
   optional_aes = c("x", "y", "xmin", "xmax", "ymin", "ymax"),
-  default_aes = ggplot2::aes(colour = NA, fill = "grey35",
-                             linewidth = 0.5, linetype = 1, alpha = NA),
+  default_aes = aes(
+    colour = from_theme(colour %||% NA),
+    fill = from_theme(fill %||% col_mix(ink, paper, 0.35)),
+    linewidth = from_theme(borderwidth),
+    linetype = from_theme(bordertype),
+    alpha = NA
+  ),
   draw_key = ggplot2::draw_key_polygon
 )
 
@@ -291,8 +296,14 @@ GeomTileMargin <- ggplot2::ggproto(
               ymin = y - height / 2, ymax = y + height / 2, height = NULL
     )
   },
-  default_aes = ggplot2::aes(fill = "grey20", colour = NA,
-                             linewidth = 0.1, linetype = 1,
-                             alpha = NA, width = NA, height = NA),
+  default_aes = aes(
+    fill = from_theme(fill %||% col_mix(ink, paper, 0.2)),
+    colour = from_theme(colour %||% NA),
+    linewidth = from_theme(borderwidth / 5),
+    linetype = from_theme(bordertype),
+    alpha = NA,
+    width = NA,
+    height = NA
+  ),
   draw_key = ggplot2::draw_key_polygon
 )

R/geom_text_aimed.R

@@ -93,8 +93,16 @@ geom_text_aimed <- function(
 GeomTextAimed <- ggproto(
   "GeomTextAimed", GeomText,
   default_aes = aes(
-    colour = "black", size = 3.88, angle = 0, xend = -Inf, yend = -Inf,
-    hjust = 0.5, vjust = 0.5, alpha = NA, family = "", fontface = 1,
+    colour = from_theme(colour %||% ink),
+    size = from_theme(fontsize),
+    family = from_theme(family),
+    angle = 0,
+    xend = -Inf,
+    yend = -Inf,
+    hjust = 0.5,
+    vjust = 0.5,
+    alpha = NA,
+    fontface = 1,
     lineheight = 1.2
   ),
   draw_panel = function(data, panel_params, coord, parse = FALSE,