defend against potentially missing stroke default (#6190)

tidyverse · Nov 27, 2024 · 949d359 · 949d359
1 parent 3d67907
commit 949d359
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geom-sf.R b/R/geom-sf.R
@@ -231,7 +231,7 @@ GeomSf <- ggproto("GeomSf", Geom,
     point_size[!(is_point | is_collection)] <-
       data$linewidth[!(is_point | is_collection)]
 
-    stroke <- data$stroke * .stroke / 2
+    stroke <- (data$stroke %||% rep(0.5, nrow(data))) * .stroke / 2
     font_size <- point_size * .pt + stroke
 
     linewidth <- data$linewidth * .pt