use utils fill_alpha

Yunuuuu · Dec 17, 2024 · 039afc7 · 039afc7
1 parent 1e22ae8
commit 039afc7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 16 deletions.
diff --git a/R/geom-pie.R b/R/geom-pie.R
@@ -126,14 +126,7 @@ GeomPie <- ggproto("GeomPie",
             default.units = "native",
             gp = gpar(
                 col = data$colour,
-                fill = try_fetch(
-                    # for version >= 3.5.0
-                    ggplot2::fill_alpha(data$fill, data$alpha),
-                    error = function(cnd) {
-                        # for version < 3.5.0
-                        ggplot2::alpha(data$fill, data$alpha)
-                    }
-                ),
+                fill = fill_alpha(data$fill, data$alpha),
                 lwd = data$linewidth,
                 lty = data$linetype,
                 lineend = lineend,

diff --git a/R/geom-tile3d.R b/R/geom-tile3d.R
@@ -114,14 +114,7 @@ GeomRect3d <- ggproto(
             default.units = "native",
             gp = gpar(
                 col = data$colour,
-                fill = try_fetch(
-                    # for version >= 3.5.0
-                    ggplot2::fill_alpha(data$fill, data$alpha),
-                    error = function(cnd) {
-                        # for version < 3.5.0
-                        ggplot2::alpha(data$fill, data$alpha)
-                    }
-                ),
+                fill = fill_alpha(data$fill, data$alpha),
                 lwd = data$linewidth,
                 lty = data$linetype,
                 lineend = lineend,