将WMS添加到Leaflet

Question

我一直试图通过国家地图的WMS将这张地图（下图）放入R中的传单，但没有取得任何成功。

https://raster.nationalmap.gov/arcgis/services/LandCover/USGS_EROS_LandCover_NLCD/MapServer/WMSServer?request=GetMap&service=WMS&Version=1.3.0&BBOX=-14497453.9,248608.9,-7087933.9,6960328.9&Styles=&Format=image/png&layers=33&crs=EPSG:3857&width=600&height=400&Transparent=true

这是我的代码：

map <- leaflet() %>% addTiles() %>% 
addWMSTiles(baseUrl="https://raster.nationalmap.gov/ArcGIS/services/LandCover/USGS_EROS_LandCover_NLCD/MapServer/WMSServer?",
layers = "33",
group = "NLCD",
options = WMSTileOptions(
format = "image/png",
version = "1.3.0",
transparent = TRUE)) %>%
addLayersControl(
overlayGroups = c("NLCD"),
position = 'bottomleft')

map

Answer 1

我发现了这个问题。当我查看RStudio查看器控制台时，每个光栅图像都有“无法加载资源：无法初始化SSL上下文：”。如果其他人遇到这种情况，那么RStudio查看器就会出现问题，他们目前正在修复此问题。如果您在浏览器中将其作为html运行，它应该正确显示。 Shiny也是如此。