## 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()
# ## End(Not run)
Run the code above in your browser using DataLab