Я пытаюсь использовать листовки 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)
