if (FALSE) {
get_prism_dailys(
type = "tmean",
minDate = "2013-06-01",
maxDate = "2013-06-14",
keepZip = FALSE
)
# get June 5th
pd <- prism_archive_subset("tmean", "daily", dates = "2013-06-05")
# and plot it
pd_image(pd)
}
Run the code above in your browser using DataLab