Made Graticule and Terminator unclickable by default. This is necessary for highlighting shapes properly.

Author: bhaskarvk

R/plugin-graticule.R

@@ -18,6 +18,7 @@ leafletGraticuleDependencies <- function() {
 #' @param style path options for the generated lines. See \url{http://leafletjs.com/reference.html#path-options}
 #' @param layerId the layer id
 #' @param group the name of the group this layer belongs to.
+#' @param options the path options for the graticule layer
 #' @examples
 #' library(leaflet)
 #'
@@ -32,7 +33,8 @@ addGraticule <- function(
   sphere = FALSE,
   style = list(color= '#333', weight= 1),
   layerId = NULL,
-  group=NULL
+  group=NULL,
+  options = pathOptions(pointerEvents="none", clickable=FALSE) # Default unclickable
 ) {
   map$dependencies <- c(map$dependencies, leafletGraticuleDependencies())
   invokeMethod(
@@ -43,6 +45,7 @@ addGraticule <- function(
     sphere,
     style,
     layerId,
-    group
+    group,
+    options
   )
 }

R/plugin-terminator.R

@@ -20,6 +20,7 @@ leafletTerminatorDependencies <- function() {
 #' @param time Time
 #' @param layerId the layer id
 #' @param group the name of the group this layer belongs to.
+#' @param options the path options for the daynight layer
 #' @examples
 #' library(leaflet)
 #'
@@ -33,16 +34,18 @@ addTerminator <- function(
   resolution = 2,
   time = NULL,
   layerId = NULL,
-  group=NULL
+  group=NULL,
+  options = pathOptions(pointerEvents="none", clickable=FALSE) # Default unclickable
 ) {
   map$dependencies <- c(map$dependencies, leafletTerminatorDependencies())
   invokeMethod(
-    map
-    , getMapData(map)
-    , 'addTerminator'
-    , resolution
-    , time
-    , layerId
-    , group
+    map,
+    getMapData(map),
+    'addTerminator',
+    resolution,
+    time,
+    layerId,
+    group,
+    options
   )
 }

inst/htmlwidgets/plugins/Leaflet.Graticule/Graticule-binding.js

@@ -1,11 +1,12 @@
-  LeafletWidget.methods.addGraticule = function(interval, sphere, style, layerId, group) {
+  LeafletWidget.methods.addGraticule = function(interval, sphere, style,
+  layerId, group, options) {
     (function() {
       this.layerManager.addLayer(
-        L.graticule({
+        L.graticule($.extend({
           interval: interval,
           sphere: sphere,
           style: style
-        }),
+        }), options || {}),
         'shape', layerId, group);
     }).call(this);
   };

inst/htmlwidgets/plugins/Leaflet.Terminator/Terminator-binding.js

@@ -1,11 +1,12 @@
-  LeafletWidget.methods.addTerminator = function(resolution, time, layerId, group) {
+  LeafletWidget.methods.addTerminator = function(resolution, time,
+  layerId, group, options) {
     (function() {
       this.layerManager.addLayer(
-        L.terminator({
+        L.terminator($.extend({
           resolution: resolution,
           time: time,
           group: group
-        }),
+        }), options || {}),
         'shape', layerId, group);
     }).call(this);
   };