test_that("pd_stack() works", {
# three days
dd <- prism_archive_subset("ppt", "daily", mon = 1, years = 1981:2011)
expect_s4_class(x <- pd_stack(dd), "RasterStack")
expect_equal(dim(x)[3], length(dd))
expect_setequal(names(x), dd)
# 2 months
mm <- prism_archive_subset("tdmean", "monthly", years = 2005)
expect_s4_class(x <- pd_stack(mm), "RasterStack")
expect_equal(dim(x)[3], length(mm))
expect_setequal(names(x), mm)
# combo month and days
cc <- c(dd, mm)
expect_s4_class(x <- pd_stack(cc), "RasterStack")
expect_equal(dim(x)[3], length(cc))
expect_setequal(names(x), cc)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.