R传单addWMStiles与投影

Question

我正在尝试遵循这个示例：https://rpubs.com/cyclemumner/228100，尤其是添加了带有自定义投影的 wms tiles 的部分，但是当我运行代码时，我似乎没有得到wms 瓷砖。我已经从 github.

安装了传单

if (!require('devtools')) install.packages('devtools')
devtools::install_github('rstudio/leaflet')

使用传单 1.0.2.9010、R R-3.3.2 和 RStudio 1.0.136。

我运行的代码如下

library(leaflet)

zoom <- 1
maxZoom <- 5

crsAntartica <-  leafletCRS(
  crsClass = 'L.Proj.CRS',
  code = 'EPSG:3031',
  proj4def = '+proj=stere +lat_0=-90 +lat_ts=-71 +lon_0=0 +k=1 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs',
  resolutions = c(8192, 4096, 2048, 1024, 512, 256),
  origin = c(-4194304, 4194304),
  bounds =  list( c(-4194304, -4194304), c(4194304, 4194304) )
)

leaflet(options= leafletOptions(crs=crsAntartica, minZoom = zoom, maxZoom=maxZoom, worldCopyJump = FALSE)) %>%
  setView(0, -90, 0) %>%
  addWMSTiles(baseUrl="https://maps.environments.aq/mapcache/antarc/?",
              layers="antarc_ramp_bath_shade_mask",
              options=WMSTileOptions(format="image/png",transparent=TRUE),
              attribution="xxx") %>%
  addGraticule()

我得到的是这个

对我做错了什么有什么想法吗？

Answer 1

找到我无法正常工作的原因。在 RStudio 查看器中查看时，wms 磁贴不显示。当我将代码放入我正在处理的闪亮应用程序中时，就会出现 wms 磁贴。

Answer 2

如果您使用的是 RStudio：我刚刚遇到了同样的问题，并找到了一个简单的解决方案来查看所有内容。只需使用 "show in new window":

使用一些随机数据看起来如下：

R传单addWMStiles与投影

R leaflet addWMStiles with projection

r

wms

leaflet