librerias

library(leaflet)
help("leaflet")
## starting httpd help server ... done

bg

m <- leaflet() %>%
  addTiles() %>% #Add default OpenStreetMap map tiles
  addMarkers(lng= -72.9222, lat = 4.1141, popup = 'center')
m
m %>% addPolylines(lng= -73.9222, lat = 5.1141)