Shiny

2017-06-22 5 views
1

のリーフレットポップアップにハイパーリンクを追加する方法にleafletを使用してインタラクティブマップを作成する方法。 CSVからのポップアップのデータを引っ張っ:Shiny

Row on CSV: 
Name lat   lng 
Tufts 42.349598 -71.063541 

コードはR上のマーカーのために:

m %>% addMarkers(~lng, ~lat, icon = custommarker1 popup = ~htmlEscape(Name)) 

これは方法がある場合は疑問に思う「tufts

を表示するポップアップで正しい場所にマーカーを返します。ハイパーリンクを直接CSVでポップアップするには?Oorまたはプレーンテキストを新しいCSV列として配置し、R/Shinyにしてハイパーリンクにします。

非常に新しいshiny/leafletになり、助けていただければ幸いです!

答えて

1

ちょうどHTMLとしてポップアップ内のリンクを含める:

output$mymap <- renderLeaflet({ 
m <- leaflet() %>% 
    addTiles() %>% # Add default OpenStreetMap map tiles 
    addMarkers(lng=174.768, lat=-36.852, popup= '<a href = "https://rstudio.github.io/leaflet/"> R </a>') 
m # Print the map 
}) 

あなたは同様にあなたのデータフレームの列に等しいポップアップを設定することができます。あなたのデータフレームは、DFと呼ばれ、それが経度=長く、緯度=緯度、およびURL =リンク含まれていた場合:

output$mymap <- renderLeaflet({ 
m <- leaflet() %>% 
addTiles() %>% # Add default OpenStreetMap map tiles 
addMarkers(lng=df$long, lat=df$lat, popup= df$link) 
m # Print the map 

を})

+0

は完全に働いたありがとうございました!!! –

+0

それはうまくいった。あなたの問題を解決した場合は、答えとしてマークすることをお勧めします。 –