Merge pull request #89 from mtennekes/patch-1

icon anchors were off when a thick strokes were used
tomroh · Jul 31, 2024 · 967de53 · 967de53
2 parents f9c9e71 + c99c792
commit 967de53
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/legend.R b/R/legend.R
@@ -982,8 +982,8 @@ makeSymbolIcons <- function(shape,
   )
   leaflet::icons(
     iconUrl = unname(symbols),
-    iconAnchorX = width / 2,
-    iconAnchorY = height / 2
+    iconAnchorX = width / 2 + strokeWidth,
+    iconAnchorY = height / 2 + strokeWidth
   )
 }
 #' @param map