eq_create_label: Create a Leaflet map widget for earthquakes with location,...

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 location, magnitude and number of deaths

Usage

eq_create_label(Data)

Arguments

Data	A cleaned NOAA data frame

Value

eq_create_label returns a data frame of text to be displayed in pop up windows when used with eq_map.

Examples

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

## End(Not run)

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