你如何在R Leaflet中实现传单插件“Leaflet.Control.Layers.Tree”

问题描述

我想在我的 R 脚本中使用“Leaflet.Control.Layers.Tree”。我正在使用传单 R 包来绘制我的地图。我发现了这个很棒的传单插件："Leaflet.Control.Layers.Tree"。

如何在 R 脚本中实现这个插件？

我尝试使用此 explanation 在 R 中添加传单插件。

有人能给我提供一个有效的例子吗？这是我现在的代码：

library(leaflet)
library(htmltools)
library(htmlwidgets)

layerTreePlugin <- htmlDependency(name = "Leaflet.Control.Layers.Tree",version = "1.0.2",src = c(href = "./www/js/"),script = "L.Control.Layers.Tree.js",stylesheet = "L.Control.Layers.Tree.css"
)
registerPlugin <- function(map,plugin) {
  map$dependencies <- c(map$dependencies,list(plugin))
  map
}

# Draw the Leaflet map
leaflet() %>%
  # Base groups
  addProviderTiles(providers$OpenStreetMap,group = "osm",options = tileOptions(maxZoom = 25,maxNativeZoom = 19)) %>%
  # Plugin
  registerPlugin(layerTreePlugin) %>%
  onRender("function(el,x) {
      var baseTree = new L.control.layers.tree({
      label: 'Base Layers',children: [
         {
             label: 'World &#x1f5fa;',children: [
                 { label: 'OpenStreetMap',layer: osm },{ label: 'Esri',layer: esri },{ label: 'Google Satellite',layer: g_s },/* ... */
             ]
         },{
             label: 'Europe',children: [
                 { label: 'France',layer: france },{ label: 'Germany',layer: germany },{ label: 'Spain',layer: spain },]
      });
      baseTree.addTo(this);}"
  )

非常感谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）