test_that("`pd_image()` works", {
expect_s3_class(
gg <- pd_image("PRISM_ppt_stable_4kmD2_19910101_bil"),
"gg"
)
expect_s3_class(ggplot2::ggplot_build(gg), "ggplot_built")
expect_s3_class(
gg <- pd_image("PRISM_tdmean_stable_4kmM3_200512_bil", "redblue"),
"gg"
)
expect_s3_class(ggplot2::ggplot_build(gg), "ggplot_built")
both <- c("PRISM_ppt_stable_4kmD2_19910101_bil",
"PRISM_tdmean_stable_4kmM3_200512_bil")
expect_error(pd_image(both))
expect_error(pd_image("PRISM_ppt_stable_4kmD2_19870214_bil"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.