方法添加超链接，弹出单张中闪亮(Way to add hyperlink to Leaflet po

使用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？OOR弹出把纯文本作为一个新的CSV列，并有R / Shiny然后把它变成一个超链接。

很新， 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

}）

文章来源: Way to add hyperlink to Leaflet popup in Shiny