An interactive map displaying all earthquake events as registered by the USGS has been made available as a peer graded assignment for Coursera's Data Products course.

• Interactive map has been published to Shiny at https://cook.shinyapps.io/earthquakes/

  • Two views are available, a leaflet map displaying data with reactive magnitude and date filter controls

  • A Data Table displaying all raw data unfiltered

• Original data is available at https://earthquake.usgs.gov/earthquakes/feed/v1.0/summary/all_month.csv

Original data is loaded dynamically from the source. with the following code

rawData <- read.csv('https://earthquake.usgs.gov/earthquakes/feed/v1.0/summary/all_month.csv', stringsAsFactor = F)
displayData <- rawData %>%
  select(Magnitude = mag, Time = time, Latitude = latitude, Longitude = longitude, Id = id)

Some notes:

• Data source is updated every 15 minutes, thus, data size will vary every time the app is run.
• At this moment, 7969 records need to be loaded and processed so initial load time might be a tad slow.
• A graph with all unfiltered data is then produced and displayed by default. It is shown next

Some possible enhancements to the application

• Add Cluster options to Map (check http://rpubs.com/teddyphreak/earhquakes_20161023)
• Add map popups for earthquakes linking to USGS page for selected event
• Make the map display fill out the page and display controls in overlay (check http://shiny.rstudio.com/gallery/superzip-example.html)