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)