来自 url 模板的传单地图图块未在 Shiny 应用程序中呈现

Question

我正在尝试使用传单中的map.geo.admin图块。

跑步时

url <- 'https://wmts20.geo.admin.ch/1.0.0/ch.swisstopo.pixelkarte-farbe/default/current/3857/{z}/{x}/{y}.jpeg'

library(leaflet)
options(viewer = NULL)

leaflet() %>%
  setView(lat = 47, lng = 9, zoom = 8) %>%
  addTiles(urlTemplate = url)

地图在浏览器中正确显示（它在 RStudio 查看器窗格中不起作用），

但是当我将代码放入闪亮的应用程序中时，我只得到一张灰色地图（有时它最初显示，但当我开始缩放时它会变灰）：

 library(shiny)

ui <- fluidPage(
  leafletOutput("map")
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>%
      setView(lat = 47, lng = 9, zoom = 8) %>%
      addTiles(urlTemplate = url)
      # addTiles()
  })
}

shinyApp(ui, server)

Answer 1

您需要根据 https://shop.swisstopo.admin.ch/en/products/geoservice/swisstopo_geoservices/WMTS_info 到 https://www.geo.admin.ch/de/geo-services 注册您的域名/geo-services/portrayal-services-web-mapping/programming-interface-api/order_form.html

否则你将无法访问图块