tests/testthat/test-gisco-get-units.R

In giscoR: Download Map Data from GISCO API - Eurostat

test_that("Deprecate df mode", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_snapshot(
    df1 <- gisco_get_units("nuts", year = 2016, mode = "df")
  )
  expect_identical(df1, gisco_get_metadata("nuts", 2016))
})

test_that("Deprecate nuts", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_snapshot(
    df1 <- gisco_get_units(
      "nuts",
      unit = "ES416",
      year = 2016,
      spatialtype = "LB",
      cache = FALSE
    )
  )
  expect_identical(
    df1,
    gisco_get_unit_nuts(
      unit = "ES416",
      year = 2016,
      spatialtype = "LB",
      cache = FALSE
    )
  )
})

test_that("Deprecate country", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_snapshot(
    df1 <- gisco_get_units(
      "countries",
      unit = "LU",
      year = 2016,
      spatialtype = "LB",
      cache = FALSE
    )
  )
  expect_identical(
    df1,
    gisco_get_unit_country(
      unit = "LU",
      year = 2016,
      cache = FALSE,
      spatialtype = "LB",
    )
  )
})


test_that("Deprecate urban audit", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_snapshot(
    df1 <- gisco_get_units(
      "urban_audit",
      unit = "ES001F",
      year = 2021,
      spatialtype = "LB",
      cache = FALSE
    )
  )
  expect_identical(
    df1,
    gisco_get_unit_urban_audit(
      unit = "ES001F",
      year = 2021,
      spatialtype = "LB",
      cache = FALSE
    )
  )
})