如何整合 shiny、leaflet 和 ncWMS？

Question

我已经设置了一个 ncWMS 服务器，它将我的 netcdf 文件提供给网络地图服务器。现在我想通过 R 传单包将 ncWMS 服务与我闪亮的应用程序集成：

显示示例代码没有问题，但总是得到空的传单结果。

我的代码是：

图书馆（传单）

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 = ""
    )

这是 link ncWMS 数据集的功能：

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

我玩过 URL 和选项，但仍然没有地图。

我应该如何使用传单显示我的 ncWMS 地图？感谢您的任何建议。

Answer 1

不要在 WMSTileOptions 中指定 CRS - 这对我有用：

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"))

如何整合 shiny、leaflet 和 ncWMS？

How to integrate shiny, leaflet and ncWMS?

r

wms

leaflet

shiny