Add options to addRasterImage

Author: jcheng5

DESCRIPTION

@@ -61,6 +61,6 @@ Suggests:
     RJSONIO,
     purrr,
     testthat
-RoxygenNote: 6.1.1
+RoxygenNote: 7.1.0
 Encoding: UTF-8
 LazyData: true

NAMESPACE

@@ -111,6 +111,7 @@ export(fitBounds)
 export(flyTo)
 export(flyToBounds)
 export(getMapData)
+export(gridOptions)
 export(groupOptions)
 export(hideGroup)
 export(highlightOptions)

NEWS

@@ -8,7 +8,7 @@ FEATURES
 *
 
 BUG FIXES and IMPROVEMENTS
-*
+* `addRasterImage` now takes `options = gridOptions()`, so that arbitrary Leaflet layer options can be controlled.
 
 
 

R/layers.R

@@ -218,6 +218,8 @@ epsg3857 <- "+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y
 #'   Ignored if \code{project = FALSE}. See \code{\link{projectRaster}} for details.
 #' @param maxBytes the maximum number of bytes to allow for the projected image
 #'   (before base64 encoding); defaults to 4MB.
+#' @param options a list of additional options, intended to be provided by
+#'   a call to \code{\link{gridOptions}}
 #' @template data-getMapData
 #'
 #' @examples
@@ -243,10 +245,14 @@ addRasterImage <- function(
   project = TRUE,
   method = c("auto", "bilinear", "ngb"),
   maxBytes = 4 * 1024 * 1024,
+  options = tileOptions(),
   data = getMapData(map)
 ) {
   stopifnot(inherits(x, "RasterLayer"))
 
+  options$opacity <- opacity
+  options$attribution <- attribution
+
   raster_is_factor <- raster::is.factor(x)
   method <- match.arg(method)
   if (method == "auto") {
@@ -304,7 +310,7 @@ addRasterImage <- function(
     list(raster::ymin(bounds), raster::xmax(bounds))
   )
 
-  invokeMethod(map, data, "addRasterImage", uri, latlng, opacity, attribution, layerId, group) %>%
+  invokeMethod(map, data, "addRasterImage", uri, latlng, opacity, attribution, layerId, group, options) %>%
     expandLimits(
       c(raster::ymin(bounds), raster::ymax(bounds)),
       c(raster::xmin(bounds), raster::xmax(bounds))
@@ -373,6 +379,23 @@ tileOptions <- function(
   ))
 }
 
+#' @describeIn map-options Options for grid layers
+#' @export
+gridOptions <- function(
+  tileSize = 256,
+  updateWhenIdle = NULL,
+  zIndex = 1,
+  minZoom = 0,
+  maxZoom = NULL,
+  ...
+) {
+  filterNULL(list(
+    tileSize = tileSize, updateWhenIdle = updateWhenIdle, zIndex = zIndex,
+    minZoom = minZoom, maxZoom = maxZoom,
+    ...
+  ))
+}
+
 #' Remove elements from a map
 #'
 #' Remove one or more features from a map, identified by \code{layerId}; or,

inst/htmlwidgets/leaflet.js

@@ -2127,7 +2127,7 @@ methods.setGroupOptions = function (group, options) {
   this.showHideGroupsOnZoom();
 };
 
-methods.addRasterImage = function (uri, bounds, opacity, attribution, layerId, group) {
+methods.addRasterImage = function (uri, bounds, opacity, attribution, layerId, group, options) {
   // uri is a data URI containing an image. We want to paint this image as a
   // layer at (top-left) bounds[0] to (bottom-right) bounds[1].
 
@@ -2246,12 +2246,10 @@ methods.addRasterImage = function (uri, bounds, opacity, attribution, layerId, g
   };
   img.src = uri;
 
-  var canvasTiles = _leaflet2.default.gridLayer({
-    opacity: opacity,
-    attribution: attribution,
+  var canvasTiles = _leaflet2.default.gridLayer(Object.assign({}, options, {
     detectRetina: true,
     async: true
-  });
+  }));
 
   // NOTE: The done() function MUST NOT be invoked until after the current
   // tick; done() looks in Leaflet's tile cache for the current tile, and

javascript/src/methods.js

@@ -983,7 +983,7 @@ methods.setGroupOptions = function(group, options) {
   this.showHideGroupsOnZoom();
 };
 
-methods.addRasterImage = function(uri, bounds, opacity, attribution, layerId, group) {
+methods.addRasterImage = function(uri, bounds, opacity, attribution, layerId, group, options) {
   // uri is a data URI containing an image. We want to paint this image as a
   // layer at (top-left) bounds[0] to (bottom-right) bounds[1].
 
@@ -1104,12 +1104,10 @@ methods.addRasterImage = function(uri, bounds, opacity, attribution, layerId, gr
   };
   img.src = uri;
 
-  let canvasTiles = L.gridLayer({
-    opacity: opacity,
-    attribution: attribution,
+  let canvasTiles = L.gridLayer(Object.assign({}, options, {
     detectRetina: true,
     async: true
-  });
+  }));
 
   // NOTE: The done() function MUST NOT be invoked until after the current
   // tick; done() looks in Leaflet's tile cache for the current tile, and