在 Shiny 中向 Leaflet 弹出窗口添加超链接的方法

【问题标题】：Way to add hyperlink to Leaflet popup in Shiny在 Shiny 中向 Leaflet 弹出窗口添加超链接的方法
【发布时间】：2017-11-25 19:40:35
【问题描述】：

在shiny 中使用leaflet 制作交互式地图。从 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 列并具有 R/Shiny 然后将其转换为超链接。

对shiny/leaflet 非常陌生，希望能提供任何帮助！

【问题讨论】：

标签： r csv popup 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 并且它包含 longitude = long、latitude= lat 和 urls = link ：

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

})

【讨论】：

很高兴它成功了。如果它解决了您的问题，我们鼓励您将其标记为答案。