R小册子addRasterImage不适用于高于18的缩放

Question

我想将addRasterImage()函数用于R中的传单对象。

然而，它似乎只能达到18的缩放级别。请参阅下面的示例。

 library(raster)
 library(leaflet)
 library(magrittr)

 r <- raster(xmn=-2.8, xmx=-2.79, ymn=54.04, ymx=54.05, nrows=30, ncols=30)
 values(r) <- matrix(1:900, nrow(r), ncol(r), byrow = TRUE)
 crs(r) <- CRS("+init=epsg:4326")

 leaflet() %>% addTiles() %>%
   setView(lat=54.045,lng=-2.795,zoom=19) %>%
   addRasterImage(r, colors = "Spectral", opacity = 0.8)

我知道addTiles()函数自然只显示最大为18的切片，但我假设光栅图像仍然应该以更高的缩放级别显示。此外，还有其他平铺提供者（例如HERE）的缩放级别高于18，但小册子对象上缺少光栅图像的问题仍然存在。

非常感谢任何帮助。