tests/testthat/test-get_region.R

In CorrelAid/datenguideR: Access and Download German Regional Statistics from the Datenguide Project

test_that("get_region returns subset of dg_regions", {
  r1 <- get_region(var = level, val = "nuts1")
  expect_s3_class(r1, c("tbl_df", "tbl", "data.frame"))
  expect_equal(nrow(r1), 16L)
  expect_equal(ncol(r1), 4L)
  expect_true(all(r1[["parent"]] == "DG"))
  expect_equal(r1, get_region(var = parent, val = "DG"))
  expect_equal(r1, get_region(var = level, val = "nuts1"))
  expect_identical(r1[["id"]], unique(r1[["id"]]))
  expect_identical(r1[["name"]], unique(r1[["name"]]))
})