在 Shiny 中将超链接添加到传单弹出窗口的方法

Question

使用leafletinshiny制作交互式地图。从 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 并且它包含 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

})