Getting hurricane data

get_data.R

# Libraries
library(tidyverse)
library(rworldmap)
library(gganimate)
library(rgdal)

# Read data
world <- map_data(map="world")
hurricanes <- read_csv('data/Allstorms.ibtracs_wmo.v03r09.csv', skip = 1) # https://www.ncdc.noaa.gov/ibtracs/index.php?name=wmo-data
cnames <- names(hurricanes)
hurricanes <- read_csv('data/Allstorms.ibtracs_wmo.v03r09.csv', skip = 2)
names(hurricanes) <- cnames
irma <- readOGR('data/irma/', 'AL112017_lin') # http://www.nhc.noaa.gov/gis/