eq_map: Create a Leaflet map widget for earthquakes with date

In ekawabata/TheCapstoneProject: Title: Useful functions for studying and visualising data from the U.S. National Oceanographic and Atmospheric Administration (NOAA)

Description

This function takes a filtered data frame and maps the epicenters and annotates each point with a pop up window of date

Usage

eq_map(Data = rlang::.data, Text4Popup)

Arguments

Data	A filtered data frame
Text4Popup	A string indicating the column to be displayed in pop up windows or a data frame of text created by eq_create_label()

Value

eq_map returns a Leaflet map widget for earthquakes.

Examples

## Not run: 
Countries <- c('USA', 'CHINA')
XMin <- ymd('2000-01-01')
readr::read_delim(system.file("extdata", "signif.txt", package = "TheCapstoneProject"), delim = '\t') %>%
eq_clean_data() %>%
dplyr::filter(COUNTRY %in% Countries) %>%
dplyr::filter(DATE >=  XMin) %>%
eq_map(Text2Popup = "DATE")

## End(Not run)

ekawabata/TheCapstoneProject documentation built on June 27, 2020, 7:58 a.m.