eq_create_label: This is a simple funtion for mapping to create label

Description Usage Arguments Value Examples

Description

This is a simple funtion for mapping to create label

Usage

1

Arguments

data

Data

Value

Character vector

Examples

1
2
3
4
5
6
7
8
library(ggplot2)
library(leaflet)
library(dplyr)

datapath <- system.file("extdata", "earthquakes.txt", package = "gsedr")
data <- readr::read_delim(datapath, delim = "\t") %>% eq_clean_data()
dddd <- data %>% dplyr::filter(COUNTRY %in% c('INDONESIA')) %>% dplyr::filter(!is.na(EQ_PRIMARY), !is.na(DEATHS))
dddd %>% dplyr::mutate(popup_text = eq_create_label(.)) %>% eq_map(annot_col = "popup_text")

ksnt/gsedr documentation built on May 12, 2019, 1:05 p.m.