Suchschaltfläche für Leaflet R map?

Question

Ich verwende die Broschüren-Bibliothek in R, die ein Wrapper für die leaflet.js-Bibliothek ist. Ich frage mich, ob es möglich ist, eine Abfrage oder eine Suchschaltfläche über die R-Schnittstelle (oder einen Hack für den zugrunde liegenden Code) hinzuzufügen? Es gibt Such-Plug-Ins für die Javascript-Bibliothek hier http://leafletjs.com/plugins.html#search--popups, aber ich kann nicht herausfinden, wie man sie mit dem Javascript, das aus der R-Bibliothek kommt arbeiten.

Als minimales Beispiel möchte ich die im Anschluss an die Fähigkeit hinzuzufügen für „Standort 1“ in der folgenden Karte zu suchen, und haben sie das Popup angezeigt:

library(leaflet) 
df = read.csv(textConnection(
    'Name, Lat, Long 
    <b>location 1</b>,42.3401, -71.0589 
    <b>location 2</b>,42.3501, -71.0689')) 

leaflet(df) %>% 
    addTiles() %>% 
    setView(lng=-71.0589,lat=42.3301, zoom=12) %>% 
    addMarkers(~Long, ~Lat, popup = ~Name 
) 

Answer 1

Es scheint, dass es eine Such-Plugin für das R Faltblatt Paket: https://github.com/byzheng/leafletplugins

Answer 2

ein komplettes Arbeits Beispiel für eine Suchleiste Hinzufügen des leafletplugins Paket verwendet, ist hier:

devtools::install_github('byzheng/leaflet') 
library(leaflet) 
library(leafletplugins) 

df = read.csv(textConnection(
    'Name, Lat, Long, Name2 
    <b>location 1</b>,42.3401, -71.0589, Loc 1 
    <b>location 2</b>,42.3501, -71.0689, Loc 2')) 

leaflet(df) %>% 
    addTiles() %>% 
    setView(lng=-71.0589,lat=42.3301, zoom=12) %>% 
    addMarkers(~Long, ~Lat, popup = ~Name, group = 'marker', label = ~Name2) %>% 
    addSearchMarker('marker', position='topleft', propertyName = 'label')