Реализация (JavaScript) плагин в R Leaflet - PullRequest
Новая
       26

Реализация (JavaScript) плагин в R Leaflet

1 голос
/ 26 июня 2019

Я создаю приложение Leaflet в R.

Я хочу использовать этот плагин https://github.com/Turbo87/leaflet-sidebar Однако я понятия не имею, с чего начать.

Руководства по реализации плагинов Javascript Leaflet в R не помогли.Есть ли у кого-нибудь шаги / руководство / код, которым я могу следовать, чтобы внедрить плагин в мою брошюру R?Любая помощь будет принята с благодарностью.

Вот где я сейчас нахожусь: 

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);
       }")
...