R 将超链接添加到单张弹出窗口的方法

使用

中的
传单
制作交互式地图。从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
/
闪亮
，然后将其转换为超链接

非常新的
shinny
/
传单
，非常感谢您的帮助
 只需将该链接作为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
})

output$mymap%#添加默认的OpenStreetMap分幅
添加标记（lng=174.768，lat=-36.852，popup=''）
打印地图
})

您也可以将弹出窗口设置为数据框中的一列。如果您的数据帧名为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

output$mymap%#添加默认的OpenStreetMap分幅
添加标记（lng=df$long，lat=df$lat，popup=df$link）
打印地图

})
很高兴它起作用了。如果它解决了您的问题，我们鼓励您将其标记为答案。