fix error for the development version of ggplot2

Yunuuuu · Jan 8, 2025 · a2c822a · a2c822a
1 parent 487d7eb
commit a2c822a
Showing 1 changed file with 33 additions and 13 deletions.
diff --git a/R/ggplot-helper.R b/R/ggplot-helper.R
@@ -94,20 +94,40 @@ element_grob.ggalign_element_polygon <- function(element,
                                                  colour = NULL,
                                                  linewidth = NULL,
                                                  linetype = NULL, ...) {
-    gp <- gpar(
-        lwd = ggfun("len0_null")(linewidth * .pt),
-        col = colour,
-        fill = fill,
-        lty = linetype
+    gp <- try_fetch(
+        gpar(
+            lwd = ggfun("len0_null")(linewidth * .pt),
+            col = colour,
+            fill = fill,
+            lty = linetype
+        ),
+        error = function(cnd) {
+            ggplot2::gg_par(
+                lwd = linewidth, col = colour, fill = fill, lty = linetype
+            )
+        }
     )
-    element_gp <- gpar(
-        lwd = ggfun("len0_null")(element$linewidth * .pt),
-        col = element$colour,
-        fill = fill_alpha(element$fill, element$alpha %||% NA),
-        lty = element$linetype,
-        lineend = element$lineend,
-        linejoin = element$linejoin,
-        linemitre = element$linemitre
+    element_gp <- try_fetch(
+        gpar(
+            lwd = ggfun("len0_null")(element$linewidth * .pt),
+            col = element$colour,
+            fill = fill_alpha(element$fill, element$alpha %||% NA),
+            lty = element$linetype,
+            lineend = element$lineend,
+            linejoin = element$linejoin,
+            linemitre = element$linemitre
+        ),
+        error = function(cnd) {
+            ggplot2::gg_par(
+                lwd = element$linewidth,
+                col = element$colour,
+                fill = fill_alpha(element$fill, element$alpha %||% NA),
+                lty = element$linetype,
+                lineend = element$lineend,
+                linejoin = element$linejoin,
+                linemitre = element$linemitre
+            )
+        }
     )
     grid::polygonGrob(
         x = x, y = y,