將超鏈接添加到Shiny中的Leaflet彈出的方法

Question

使用leaflet在shiny中製作交互式地圖。從CSV拉數據彈出窗口：

Row on CSV: 
Name lat   lng 
Tufts 42.349598 -71.063541 

碼R上的標記：

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

這將返回標記在正確的位置與彈出顯示「tufts」

想知道如果有一種方法要將超鏈接直接編碼到CSV中的彈出窗口中，以將純文本作爲新的CSV列，然後將其轉換爲超鏈接。

很新的shiny/leaflet並希望任何幫助！

Answer 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 

}）