# set up a bunch of points in the map
df <- data.frame(lat = runif(20, min = 39.2, max = 39.3),
                 lng = runif(20, min = -76.6, max = -76.5))
df %>% leaflet() %>% addTiles() %>% addMarkers()