if (FALSE) {
# download and then get meta data for January 1, 2010 precipitation
get_prism_dailys("ppt", dates = "2010-01-01")
pd <- prism_archive_subset("ppt", "daily", dates = "2010-01-01")
# will warn that 2010-01-02 is not found:
pd_get_station_md(pd)
}
Run the code above in your browser using DataLab