Nothing
# test works --------------------
exp_cols <- c("date","prism_data", "type", "station", "name", "longitude",
"latitude", "elevation", "network", "stnid")
avail_files <- rbind(c("ppt", "1981-01-01"), c("ppt", "1991-01-01"),
c("ppt", "2011-01-01"), c("tmin", "1981-01-01"),
c("tmin", "2011-06-15"))
test_that("pd_get_station_md() works", {
for (i in seq_len(nrow(avail_files))) {
expect_s3_class(
x <- pd_get_station_md(prism_archive_subset(
avail_files[i, 1],
"daily",
dates = avail_files[i, 2]
)),
"tbl_df"
)
expect_gt(nrow(x), 0, label = avail_files[i,])
expect_true(all(colnames(x) %in% exp_cols))
expect_true(all(exp_cols %in% colnames(x)))
}
expect_s3_class(
x <- pd_get_station_md(prism_archive_subset(
"tdmean", "monthly", years = 2005:2006, mon = 11:12
)),
"tbl_df"
)
expect_equal(nrow(x), 3242 + 3255)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.