Как интегрировать блестящие, листовки и ncWMS?

Question

У меня есть сервер ncWMS, который обслуживает мой файл netcdf на сервере веб-карт. Теперь я хотел бы интегрировать службу ncWMS с моим блестящим пакетом APP через R:

Нет никаких проблем, чтобы показать пример кода, но всегда получайте пустые результаты листка.

Мои коды:

библиотека (листовка)

leaflet() %>% 
    addTiles() %>% 
    setView(133, -23, zoom = 4) %>% 
    addWMSTiles(
     "https://croptsrv-cdc.it.csiro.au/ncWMS/wms", 
     layers = "fi/mint", 
     options = WMSTileOptions(
        format = "image/png", 
        transparent = FALSE, version = "1.3.0", 
           CRS = 'CRS:84', 
           styles = 'boxfill/redblue'), 
     attribution = "" 
    ) 

Это ссылка для возможности ncWMS набора данных:

https://croptsrv-cdc.it.csiro.au/ncWMS/wms?SERVICE=WMS&REQUEST=GetCapabilities&VERSION=1.3.0&DATASET=fi

Я играл с URL и параметры, но по-прежнему нет карт.

Как показать свою карту ncWMS с помощью листовки? Спасибо за любые предложения.

Answer 1

Не указывайте CRS в WMSTileOptions - это работает для меня:

leaflet() %>% 
addTiles() %>% 
setView(133, -23, zoom = 4) %>% 
addWMSTiles("https://croptsrv-cdc.it.csiro.au/ncWMS/wms", 
    layers = "fi/mint", 
    options = WMSTileOptions(
    format = "image/png", 
    transparent=TRUE, 
    styles="boxfill/redblue"))