library(leaflet)
ll_map <- leaflet()

ll_map <- addTiles(map = ll_map)

ll_map <- setView(map = ll_map, lat = 5.527448, lng = -87.057245,
    zoom = 13)

addPopups(map = ll_map, lat = 5.527448, lng = -87.057245, popup = "Isla del Coco")