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

In giscoR: Download Map Data from GISCO API - Eurostat

test_that("offline", {
  skip_on_cran()
  skip_if_gisco_offline()

  options(gisco_test_404 = TRUE)
  expect_message(
    n <- gisco_get_lau(update_cache = TRUE, year = 2020),
    "Error"
  )
  expect_null(n)

  options(gisco_test_404 = FALSE)
})

test_that("LAU Errors", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_error(gisco_get_lau(year = "2001"))
  expect_error(gisco_get_lau(epsg = "9999"))
})


test_that("LAU online", {
  skip_on_cran()

  skip_if_gisco_offline()

  # Heavy download, should warn
  expect_message(
    all <- gisco_get_lau(
      year = 2024,
      update_cache = TRUE,
      verbose = FALSE
    )
  )
  expect_silent(
    li_and_es <- gisco_get_lau(
      year = 2024,
      country = "LI",
      gisco_id = "ES_12016"
    )
  )

  expect_message(
    li <- gisco_get_lau(
      year = 2024,
      verbose = TRUE,
      country = "LI"
    )
  )

  expect_true(nrow(all) > 1000 * nrow(li_and_es))

  cntry <- sort(unique(li_and_es$CNTR_CODE))
  cntry <- as.character(cntry)
  expect_length(cntry, 2)
  expect_equal(cntry, c("ES", "LI"))

  expect_true(
    nrow(
      li_and_es[li_and_es$CNTR_CODE == "ES", ]
    ) ==
      1
  )

  expect_true(
    nrow(
      li_and_es[li_and_es$CNTR_CODE == "LI", ]
    ) >
      5
  )
})

test_that("Deprecations", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_snapshot(
    s <- gisco_get_lau(
      year = 2024,
      cache = TRUE,
      gisco_id = "ES_12016"
    )
  )
  expect_s3_class(s, "sf")
  expect_s3_class(s, "tbl_df")
  expect_equal(nrow(s), 1)
  expect_equal(s$GISCO_ID, "ES_12016")
})

test_that("Extensions", {
  skip_on_cran()
  skip_if_gisco_offline()

  # Error
  expect_snapshot(
    gisco_get_lau(ext = "docx"),
    error = TRUE
  )

  cdir <- file.path(tempdir(), "testlau")
  if (dir.exists(cdir)) {
    unlink(cdir, recursive = TRUE, force = TRUE)
  }

  expect_identical(
    list.files(cdir, recursive = TRUE),
    character(0)
  )

  db_geojson <- gisco_get_lau(
    year = 2020,
    cache_dir = cdir,
    ext = "geojson",
    country = "LU"
  )
  expect_s3_class(db_geojson, "sf")
  expect_s3_class(db_geojson, "tbl_df")

  expect_length(
    list.files(cdir, recursive = TRUE, pattern = "geojson"),
    1
  )

  db_shp <- gisco_get_lau(
    year = 2020,
    cache_dir = cdir,
    ext = "shp",
    country = "LU"
  )

  expect_s3_class(db_shp, "sf")
  expect_s3_class(db_shp, "tbl_df")

  expect_length(
    list.files(cdir, recursive = TRUE, pattern = "shp"),
    1
  )

  # Cleanup
  unlink(cdir, recursive = TRUE, force = TRUE)
})