将超链接添加到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 

}）