# NOT RUN {
leaflet::leaflet(data.frame(lat = 42.9634 + rnorm(1000),lng = -85.6681 + rnorm(1000))) %>%
addTiles() %>% addHexbin()
leaflet::leaflet(data.frame(lat = 42.9634 + rnorm(1000),lng = -85.6681 + rnorm(1000))) %>%
addTiles() %>% addHexbin(radius=25, lowEndColor='purple', highEndColor='orange')
# }
Run the code above in your browser using DataLab