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

Question

使用shiny中的leaflet制作交互式 map 。从 CSV 中提取弹出窗口的数据:

Row on CSV:
Name    lat          lng
Tufts   42.349598   -71.063541

R 上的标记代码:

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

这将在正确位置返回标记，弹出窗口显示“簇绒”

想知道是否有办法直接在 CSV 中将超链接编码到弹出窗口中？或者将纯文本作为新的 CSV 列并具有 R/Shiny然后将其变成超链接。

对shiny/传单非常陌生，非常感谢任何帮助!

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 并且包含经度 = long、纬度 = 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

})