```{r}
library(leaflet)
library(dplyr)

m <- leaflet() %>% setView(lng = -71.0589, lat = 42.3601, zoom = 12)
m %>% addTiles()
```

library(knitr)
opts_chunk$set(fig.width=12, fig.height=8)

SomeData %>%
  leaflet(height=2000, width=2000) %>%
  addTiles() %>%
  addMarkers(clusterOption=markerClusterOptions())