Add a pop-up with an image to a leaflet map in R

R Markdown

Add a pop-up with an image to a leaflet map in R

We need only two commands to get a leaflet-map:

library(leaflet)

map <- leaflet() %>%
        addTiles() %>%

To center the map at a certain point:

setView(-58.287691, -33.137864,, zoom=13) %>%

To add information at a that point:

addMarkers(-58.287691, -33.137864, popup="Frigorífico Anglo")

And a picture and more details:

conteudo <- paste(sep = "<br/>",
               paste0("<img src='https://upload.wikimedia.org/wikipedia/commons/b/b1/El_Frigor%C3%ADfico_ANGLO_en_acci%C3%B3n.jpg", "' />"),
               paste0("<b>Name: </b>", "Frigorífico Anglo"),
               paste0("<b>Place: </b>", "Fray Bentos, Uruguay"),
               paste0("<a href='https://en.wikipedia.org/wiki/Frigor%C3%ADfico_Anglo_del_Uruguay", "'>Link</a>"))

addMarkers(-58.287691, -33.137864, popup=conteudo)

And….

library(leaflet)

contenido <- paste(sep = "<br/>",
                   paste0("<img src='https://www.r-project.org/logo/Rlogo.png", "' />"),
                   paste0("<b>Name: </b>", "Frigorífico Anglo"),
                   paste0("<b>Place: </b>", "Fray Bentos, Uruguay"),
                   paste0("<a href='https://en.wikipedia.org/wiki/Frigor%C3%ADfico_Anglo_del_Uruguay", "'>Link</a>"))

map <- leaflet() %>%
  addTiles() %>%
  setView(-58.287691, -33.137864,, zoom=13) %>%
  addMarkers(-58.287691, -33.137864, popup=contenido)
map