Как добавить всплывающий плагин на карту листовок в R? ⇐ Javascript

[Anonymous]

Я использую R Shiny, чтобы создать веб -приложение для пользователей, чтобы построить прошлые и представить данные. Многие из этих точек данных близки друг к другу, поэтому, когда пользователь открывает всплывающие окна, он перекрывается. Пользователю нужны все всплывающие окна, которые они хотят быть открытыми, чтобы просмотреть данные с станции, и сдвинуть их, чтобы они могли просмотреть их одновременно, сохранить карту и экспортировать их в отчет. Я не очень опыт создания и добавления плагинов, сделал это только пару раз для мелких вещей, поэтому я знаю, что я что -то упускаю, но, кажется, не могу понять это. Ниже приведен некоторый сценарий R, показывающий небольшой пример того, как я пытаюсь его использовать. < /P>

Код: Выделить всё

library(leaflet)
library(leaflet.esri)
library(htmltools)
library(htmlwidgets)
library(shiny)
library(shinyjs)

data %
addMarkers(lat = data$lat,lng = data$lon,
popup = paste(data$station,"
",
"Lat: ",data$lat,"
",
"Lon: ",data$lon,"
",
"Est.: ",data$year),
popupOptions = popupOptions(autoClose = FALSE, closeOnClick = FALSE))%>%
registerPlugin(addPopupMove)%>%
onRender("function (el,x){
var popmove = L.Map.PopupMovable(options = { popupMovable: true
});
popmove.addTo(this);
")
}

react_map = reactiveVal(map())
output$map = renderLeaflet({react_map() })

})

shinyApp(ui,server)

Цель состоит в том, чтобы позволить пользователю щелкнуть и перетаскивать всплывающие окна, но все еще иметь ведущие линии на маркер.

Подробнее здесь: https://stackoverflow.com/questions/795 ... t-map-in-r