allow ... for antpath for pane

trafficonese · Oct 3, 2023 · b5e0283 · b5e0283
1 parent 126d14e
commit b5e0283
Show file tree

Hide file tree

Showing 7 changed files with 32 additions and 14 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,4 +31,4 @@ Suggests:
     curl
 URL: https://trafficonese.github.io/leaflet.extras2/, https://github.com/trafficonese/leaflet.extras2
 BugReports: https://github.com/trafficonese/leaflet.extras2/issues
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.3
diff --git a/R/antpath.R b/R/antpath.R
@@ -80,7 +80,8 @@ antpathOptions = function(
   pulseColor = "#ffffff",
   lineCap = NULL, lineJoin = NULL,
   interactive = TRUE, pointerEvents = NULL,
-  className = "") {
+  className = "",
+  ...) {
 
   filterNULL(list(
     delay = delay,
@@ -93,7 +94,8 @@ antpathOptions = function(
     lineJoin = lineJoin,
     interactive = interactive,
     pointerEvents = pointerEvents,
-    className = className
+    className = className,
+    ...
   ))
 }
 

diff --git a/inst/examples/antpath_app.R b/inst/examples/antpath_app.R
@@ -20,7 +20,7 @@ ui <- fluidPage(
 server <- function(input, output, session) {
   output$map <- renderLeaflet({
     leaflet()  %>%
-      addTiles() %>%
+      addTiles() %>% addMapPane("my-pane", 420) %>%
       addAntpath(data = coords,
                  layerId = ~FGN,
                  label = ~sprintf("Ant-Colony of %s", district),
@@ -32,10 +32,11 @@ server <- function(input, output, session) {
                  options = antpathOptions(
                    pulseColor = colorNumeric("Reds",
                      domain = as.numeric(coords$FKN))(as.numeric(coords$FKN)),
-                   delay = c(rep(300, 50), rep(3000, 50)),
+                   delay = 4000,
                    paused = FALSE,
+                   renderer= JS('L.svg({pane: "my-pane"})'),
                    reverse = TRUE,
-                   dashArray = c(40, 50),
+                   dashArray = c(40, 10),
                    hardwareAccelerated = T,
                    interactive = TRUE,
                    lineCap = "butt",

diff --git a/man/antpathOptions.Rd b/man/antpathOptions.Rd
diff --git a/man/startMoving.Rd b/man/startMoving.Rd
diff --git a/package-lock.json b/package-lock.json
diff --git a/package.json b/package.json
@@ -17,6 +17,7 @@
     "d3-hexbin": "^0.2.2",
     "labelgun": "^6.1.0",
     "leaflet": "^1.6.0",
+    "leaflet-ant-path": "^1.3.0",
     "leaflet-arrowheads": "^1.4.0",
     "leaflet-easyprint": "^2.1.9",
     "leaflet-geometryutil": "^0.10.1",