Use fill_alpha() instead of alpha()

tidyverse · Feb 27, 2024 · b5a7fe9 · b5a7fe9
1 parent e8a388e
commit b5a7fe9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geom-sf.R b/R/geom-sf.R
@@ -202,7 +202,7 @@ sf_grob <- function(x, lineend = "butt", linejoin = "round", linemitre = 10,
   col <- x$colour %||% defaults$colour[type_ind]
   col[is_point | is_line] <- alpha(col[is_point | is_line], alpha[is_point | is_line])
   fill <- x$fill %||% defaults$fill[type_ind]
-  fill <- alpha(fill, alpha)
+  fill <- fill_alpha(fill, alpha)
   size <- x$size %||% defaults$size[type_ind]
   linewidth <- x$linewidth %||% defaults$linewidth[type_ind]
   point_size <- ifelse(