Recent Earthquakes in The Netherlands

#load the earthquake data and select most recent ones
library(leaflet)

## Warning: package 'leaflet' was built under R version 3.1.3

df <- read.csv(url("http://cdn.knmi.nl/knmi/map/page/seismologie/all_induced.csv"))
recentQuakes <- df[-c(1:1000), c("LAT", "LON")]

#plot the quakes, map is zoomable
recentQuakes %>% leaflet() %>%
  addTiles() %>%
  addMarkers(clusterOptions=markerClusterOptions())