Maximum Image zoom

[eduardszoecs]

Raster are displayed only till level 18.
Is there a was to increase this?

With tileOptions(maxZoom = 20) the background can go to 20.
However, the raster disappears at 18.

Maybe add at maxZoom option to addRasterImage?

See also r-spatial/mapview#90

library(leaflet)
library(mapview)

leaflet() %>% 
  addTiles() %>% 
  addRasterImage(poppendorf[[1]], opacity = 0.7)
# stops a zoom level 18

# can go deeper with tileOptions.
# However, the raster image disappears at 18
leaflet() %>% 
  addTiles(options = tileOptions(maxZoom = 20)) %>% 
  addRasterImage(poppendorf[[1]], opacity = 0.7)

[jcheng5]

I think it's just an oversight that addRasterImage doesn't have an options argument...?

[eduardszoecs]

Should it be added to methods.js and layers.R? Investigating...

[eduardszoecs]

@jcheng5 I have working fix:

library(mapview)
devtools::install_github("EDiLD/leaflet", ref = "c370a7eea5d92")
library(leaflet)

# displays raster only up to zoom level 18 and tiles to 19
# note that the opacity argument moved to options
leaflet() %>% 
  addTiles(options = tileOptions(maxZoom = 19)) %>% 
  addRasterImage(poppendorf[[1]], options = tileOptions(opacity = 0.7))

# displays both raster & tiles up to 19
leaflet() %>% 
  addTiles(options = tileOptions(maxZoom = 19)) %>% 
  addRasterImage(poppendorf[[1]], options = tileOptions(opacity = 0.7, maxZoom = 19))

I added options to addRasterImage that can take care of this.
The opacity and attribution argument were redundant (can be also passed via options), so I removed them. This breaks backward compatibility and I don't know how you want to deal with this - please give advice before I create a PR.

[eduardszoecs]

Added back opactity & attribution for backward compatibilty (will overwrite tileOptions for now).

# old argument will overwrite options
leaflet() %>% 
  addTiles(options = tileOptions(maxZoom = 19)) %>% 
  addRasterImage(poppendorf[[1]], options = tileOptions(maxZoom = 19))

leaflet() %>% 
  addTiles(options = tileOptions(maxZoom = 19)) %>% 
  addRasterImage(poppendorf[[1]], opacity = 0.7, options = tileOptions(maxZoom = 19))

leaflet() %>% 
  addTiles(options = tileOptions(maxZoom = 19)) %>% 
  addRasterImage(poppendorf[[1]], opacity = 0.2, options = tileOptions(maxZoom = 19, opacity = 0.7))