## 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()
#
# # Map all years for April only for North pole
# library('plyr')
# library('doMC')
# urls <- seaiceeurls(mo='Apr', pole='N')
# registerDoMC(cores=4)
# out <- llply(urls, seaice, .parallel=TRUE)
# names(out) <- seq(1979,2013,1)
# df <- ldply(out)
# ggplot(df, aes(long, lat, group=group)) +
# geom_polygon(fill="steelblue") +
# theme_ice() +
# facet_wrap(~ .id)
## ---------------------------------------------
Run the code above in your browser using DataLab