# NOT RUN {
# Look at data.frame's for a series of years for Feb, South pole
urls <- sapply(seq(1979,1990,1), function(x) seaiceeurls(yr=x,
mo='Feb', pole='S'))
out <- lapply(urls, seaice)
lapply(out, head)
# Map a single year/month/pole combo
urls <- seaiceeurls(mo='Apr', pole='N', yr=1990)
out <- seaice(urls)
library('ggplot2')
ggplot(out, aes(long, lat, group=group)) +
geom_polygon(fill="steelblue") +
theme_ice()
# }
Run the code above in your browser using DataLab