Let’s create a map that shows Quito.
library(leaflet)
Let´s add the mark of the middle of the world
Middle <- c("<a href= 'http://ecuador360.travel/ciudades-de-ecuador/guia-de-atractivos-de-quito/ciudad-mitad-del-mundo.html' >Middle of the World</a>")
my_map <- leaflet() %>%
addTiles()%>%
addMarkers(lat=-0.0022101, lng=-78.4558475, popup=Middle)
my_map