R - Leaflet WMTS 层未呈现

Question

我正在使用以下网址将 WMTS 图层添加到我的 R Leaflet 地图中：

https://mrdata.usgs.gov/mapcache/wmts?layer=alteration&service=WMTS&request=GetCapabilities&version=1.0.0

我在 R Leaflet 中的“addWMSTiles”选项下将 url 添加到我的代码中，如下所示：

library(shiny)
library(leaflet)

ui <- shinyUI(
fluidPage(
    leafletOutput("map", width = "100%", height = "900px")
)
)

server <- function(input, output) {

output$map <- renderLeaflet({
    leaflet() %>%
        addTiles() %>%
        setView(-93.65, 42.0285, zoom = 4) %>%
        addWMSTiles("https://mrdata.usgs.gov/mapcache/wmts?layer=alteration&service=WMTS&request=GetCapabilities&version=1.0.0",
            layers = "sim3340",
            options = WMSTileOptions(format = "image/png", transparent = TRUE),
            attribution = "")
})
}

app <- shinyApp(ui = ui, server = server)
runApp(app, launch.browser = TRUE)

当我运行此代码时，地图将显示在浏览器中，但显示的只是基本传单 (OpenStreets) 地图（下图）。

当 CA 和 AZ 周围应该有一些颜色时，因为那是 WMTS 图层正在突出显示。

起初我认为这可能是由于 WMTS 层中有 3 个不同的投影矩阵，但即使我在 addWMSTiles 选项中调用 crs = "EPSG:6.3:3857" 它仍然显示为底图。

我需要更改或添加什么才能使此 WMTS 图层显示在地图上？

谢谢您，我们一如既往地感谢您的帮助！

Answer 1

应该这样做。对您的baseUrl 的调用不正确。

library(shiny)
library(leaflet)

ui <- shinyUI(
  fluidPage(
    leafletOutput("map", width = "100%", height = "900px")
  )
)

server <- function(input, output) {

  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      setView(-93.65, 42.0285, zoom = 4) %>%
      addWMSTiles(baseUrl = "https://mrdata.usgs.gov/mapcache/wms/",
                  layers = "sim3340",
                  options = WMSTileOptions(format = "image/png", transparent = TRUE),
                  attribution = "")
  })
}

app <- shinyApp(ui = ui, server = server)
runApp(app, launch.browser = TRUE)