This Shiny App can be seen in action at: https://ykv001.shinyapps.io/ykvwk4/.

It displays interactive maps created with the plotly and leaflet libraries. The events covered are:

1. World Earquakes for July 2017 4.5+ Magnitude
2. Historical Earthquake fatalities by country from 1000 B.C.E to 2015

The first one is a from the plotly library with USGS data and the second uses a custom build package to visualize earthquake data from NOAA. This Package was created for the capstone project of Mastering Software Development in R. https://gitub.com/ykv001/ykvdpcap

• The first visualization is created by selecting a minimum and maximum earthquakes' magnitude. Since the data is not small a new submit request is required to update the map. The main legend gives the magnitude, the size of the elements is also function of the magnitude. Indiviudal marker's legend display exact coordinates and location by name.

• As historical visualization the second one provides a data input for the starting year and country of interest. Most of the countries are included. Option to display Earthquake location and fatalities or date is available as well.

1.World Earquakes for July 2017 4.5+ Magnitude

knitr::kable(head(eqs))

2.Historical Earthquake fatalities by country from 1000 B.C.E to 2015

eq_clean %>%
        dplyr::filter(COUNTRY == "JAPAN" & lubridate::year(DATE) >= 1980) %>%
        dplyr::mutate(popup_text = eq_create_label(.)) %>%
        eq_map(annot_col ="popup_text")