如何将超链接添加到传单的弹出窗口中？ （网址存储在表格中）

Question

我有一个表，其中的一列是网站网址，如何在传单的弹出窗口中添加带有这些网址的超链接？ 这是我的代码：

content <- paste(sep = "\n",
                    my_table$names,
                    my_table$websites)

my_map <- leaflet(my_table) %>%
  setView(lng = -98.583, lat = 39.833, zoom = 4) %>% 
  addTiles() %>% 
  addProviderTiles(providers$Wikimedia) %>% 
  addMarkers(
    clusterOptions = markerClusterOptions(),
    popup = htmlEscape(content),
    icon = my_icon
  )

Answer 1

我稍微改变了您调用内容对象的方式，将html代码粘贴到数据帧中的列周围，以创建带引号的超链接。

    content <- yourDataframe %>% 
    mutate(popup = paste0('<a href =', websites, '>', names, '</a>'))

    my_map <- leaflet(my_table) %>%
    setView(lng = -98.583, lat = 39.833, zoom = 4) %>% 
    addTiles() %>% 
    addProviderTiles(providers$Wikimedia) %>%
    addMarkers(lng = content $longitude, 
         lat = content $latitude,
         clusterOptions = markerClusterOptions(),
         popup = content$popup)