在 R Leaflet 中实现一个（javascript）插件

Question

我正在用 R 构建 Leaflet 应用程序。

我想使用这个插件https://github.com/Turbo87/leaflet-sidebar 但是，我不知道从哪里开始。

在 R 中实现 Javascript Leaflet 插件的指南无法提供帮助。有没有人有我可以遵循的任何步骤/指导/代码来在我的 R Leaflet 中实现插件？任何帮助将不胜感激。

这是我目前所在的位置：

sidebarPlugin <- htmlDependency("leaflet-sidebar", "0.2.0",

                            src = c(href = "https://github.com/Turbo87/leaflet-sidebar.git"),

                            script = "src/L.Control.Sidebar.js")

registerPlugin <- function(map, plugin) {

  map$dependencies <- c(map$dependencies, list(plugin))

  map}

testLeaflet <- leaflet() %>%

  addTiles %>%

  addPolylines(data = dijkjson)%>%

  #register plugin on this map instance

  registerPlugin(sidebarPlugin)%>%

  addControl("Test2", position = "topright")%>%

  # Add your custom JS logic here. The `this` keyword

  # refers to the Leaflet (JS) map object.

  onRender("function(el, x) {

       var sidebar = L.control.sidebar('sidebar', {

       position: 'left'}).addTo(this);

       map.addControl(sidebar).addTo(this);

       sidebar.show().addTo(this);

       }")

Answer 1

也许你还没有解决你的问题。第一步是确保您的 htmlDependency 源确实存在。根据您的路径，我得到以下响应：{"error":"Not Found"}jsdelivr以 application/javascript 格式提供大多数可通过 npm 和 github 获得的 js 库。使用它而不是你可以尝试的原始 github 路径：sidebarPlugin&nbsp;<-&nbsp;htmltools::htmlDependency("L.Control.Sidebar",&nbsp;"0.2.1", &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;src&nbsp;=&nbsp;c(href&nbsp;=&nbsp;'https://cdn.jsdelivr.net/gh/Turbo87/leaflet-sidebar@0.2.1/src'),&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;script&nbsp;=&nbsp;'L.Control.Sidebar.js',&nbsp;stylesheet&nbsp;=&nbsp;'L.Control.Sidebar.css')