leaflet() %>%
      addTiles() %>%
      addMarkers(lat=lat, lng=long, popup=names)