I am working on a shinyapp using the leaflet maps. I have been trying to add some popup information, however instead of rendering the HTML as bold, hyperlinks, etc, it just displays the raw text when I click on each point.
The markers are declared in a leafletProxy:
observe({
user_selected_cats = get_selected_categories()
selected_samples = dplyr::filter(metagenomedata, category %in% user_selected_cats )
leafletProxy("worldMap", data=selected_samples) %>%
clearMarkers() %>%
addCircleMarkers(lng=selected_samples$longitude , lat=selected_samples$latitude ,
stroke=FALSE, fillOpacity=0.25,
fillColor= selected_samples$colorvec ,
popup = ~htmlEscape(selected_samples$sra_labels)
)
}) # end observe
They end up looking like this:
Am I missing something obvious? Thanks in advance!