tests/testthat/test-pd_plot_slice.R

In ropensci/prism: Access Data from the Oregon State Prism Climate Project

lat_lon <- c(-122.0307963, 36.9741171) # Santa Cruz, CA

test_that("pd_plot_slice() works", {
  expect_s3_class(
    gg <- pd_plot_slice(
      prism_archive_subset("ppt", "daily", years = 1981:2011),
      lat_lon
    ), 
    "gg"
  )
  expect_s3_class(ggplot2::ggplot_build(gg), "ggplot_built")
  
  expect_s3_class(
    gg <- pd_plot_slice(
      prism_archive_subset("tdmean", "monthly", years = 2005),
      lat_lon
    ), 
    "gg"
  )
  expect_s3_class(ggplot2::ggplot_build(gg), "ggplot_built")
  
  bad <- c("PRISM_tdmean_stable_4kmM3_200511_bil", 
           "PRISM_ppt_stable_4kmD2_19910101_bil")
  
  expect_error(pd_plot_slice(bad, lat_lon))
})