Как добавить гиперссылку во всплывающее окно в листовке? (URL хранятся в таблице)

Question

У меня есть таблица, в которой один из столбцов - это URL-адреса веб-сайтов. Как добавить гиперссылку с этими URL-адресами во всплывающем окне в листовке? вот мой код:

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)