fix: fillColor argument for pulseIcons

NEWS.md

@@ -4,6 +4,8 @@
 - Include the plugin [`leaflet-groupedlayercontrol`](https://github.com/ismyrnow/leaflet-groupedlayercontrol). 
   See the example in `/inst/examples/shiny/groupedlayercontrol_app.R` for a demo of all options and methods. Fix #202
 
+## Bugfixes
+- New argument `fillColor` for `pulseIcons`. Fix #231
 
 # leaflet.extras 2.0.1
 

R/pulseIcon.R

@@ -76,11 +76,12 @@ pulseIconSetToPulseIcons <- function(x) {
 #' @rdname pulseMarkers
 makePulseIcon <- function(
     color = "#ff0000",
+    fillColor = color,
     iconSize = 12,
     animate = TRUE,
     heartbeat = 1) {
   icon <- leaflet::filterNULL(list(
-    color = color, iconSize = iconSize, animate = animate, heartbeat = heartbeat
+    color = color, fillColor = fillColor, iconSize = iconSize, animate = animate, heartbeat = heartbeat
   ))
   structure(icon, class = "leaflet_pulse_icon")
 }
@@ -93,18 +94,20 @@ makePulseIcon <- function(
 #' icon data. Shorter argument values will be re-cycled. \code{NULL} values for
 #' these arguments will be ignored.
 #' @param color Color of the icon
+#' @param fillColor Fill color of the icon
 #' @param iconSize Size of Icon in Pixels.
 #' @param animate To animate the icon or not, defaults to TRUE.
 #' @param heartbeat Interval between each pulse in seconds.
 #' @export
 #' @rdname pulseMarkers
 pulseIcons <- function(
     color = "#ff0000",
+    fillColor = color,
     iconSize = 12,
     animate = TRUE,
     heartbeat = 1) {
   leaflet::filterNULL(list(
-    color = color, iconSize = iconSize, animate = animate, heartbeat = heartbeat
+    color = color, fillColor = fillColor, iconSize = iconSize, animate = animate, heartbeat = heartbeat
   ))
 }
 

inst/examples/shiny/groupedlayercontrol_app.R

@@ -49,7 +49,7 @@ server <- function(input, output, session) {
       addCircleMarkers(runif(20, -75, -74), runif(20, 41, 42), color = "lightblue", group = "Markers4") %>%
       addCircleMarkers(runif(20, -75, -74), runif(20, 41, 42), color = "purple", group = "Markers5") %>%
       addGroupedLayersControl(
-        baseGroups = c("OpenStreetMap","CartoDB"),
+        baseGroups = c(list("Base1" = "OpenStreetMap")),
         overlayGroups = list("Layergroup_2" = c("Markers5","Markers4"),
                              "Layergroup_1" = c("Markers2","Markers1","Markers3")),
         position = "topright",