From 3c8c4951fd22a99e10f0dee82db520ac0c94613f Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Tue, 19 Nov 2024 09:38:32 +0100
Subject: [PATCH] defend against potentially missing `stroke` default

---
 R/geom-sf.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geom-sf.R b/R/geom-sf.R
index dfc3926153..1d53d67499 100644
--- 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