tests/testthat/test_ranges.R

In ebirdst: Access and Analyze eBird Status and Trends Data Products

context("Loading ranges")

skip_on_cran()

test_that("load_ranges", {
  # raw
  range_raw <- load_ranges("yebsap-example",
                           resolution = "27km",
                           smoothed = FALSE)
  expect_s3_class(range_raw, "sf")
  expect_equal(nrow(range_raw), 4)
  expect_named(range_raw,
               c("species_code", "scientific_name", "common_name",
                 "prediction_year", "type", "season", "start_date", "end_date",
                 "geom"))

  # smoothed
  range_smooth <- load_ranges("yebsap-example", resolution = "27km")
  expect_s3_class(range_smooth, "sf")
  expect_equal(nrow(range_smooth), 4)
  expect_named(range_smooth,
               c("species_code", "scientific_name", "common_name",
                 "prediction_year", "type", "season", "start_date", "end_date",
                 "geom"))
})

test_that("load_ranges error", {
  expect_error(load_ranges("Yellow Warbler"))
  expect_error(load_ranges("XXXX"))
})