tests/testthat/test_recoveries.R

In mskyttner/swedishbirdrecoveries: Swedish Bird Recoveries (Data and User Interface)

library(swedishbirdrecoveries)
context("Dataset content")

test_that("datasets are not empty", {
	data("birdrecoveries_eng")
	data("birdrecoveries_swe")
  expect_gt(nrow(birdrecoveries_eng), 0)
	expect_gt(nrow(birdrecoveries_swe), 0)
})

test_that("scrape returns data - checklists", {
  expect_gt(nrow(scrape_checklist_falsterbo()), 0)
  expect_gt(nrow(scrape_checklist_norway()), 0)
  expect_gt(nrow(scrape_checklist_ottenby()), 0)
})

test_that("scrape returns data - recoveries", {
  expect_gt(nrow(scrape_recoveries_falsterbo()), 0)
  #expect_gt(nrow(scrape_recoveries_norway()), 0)
  expect_gt(nrow(scrape_recoveries_ottenby()), 0)
})