leaflet(height = 350, width = "100%") %>%
  addProviderTiles("CartoDB") %>%
  addMarkers(data = quakes,
             clusterOptions = markerClusterOptions()) %>%
  addMyControls()