tests/testthat/test-gisco-bulk-download.R

In giscoR: Download Map Data from GISCO API - Eurostat

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

  options(gisco_test_offline = TRUE)
  expect_message(
    n <- gisco_bulk_download(update_cache = TRUE),
    "Offline"
  )
  expect_null(n)

  options(gisco_test_offline = FALSE)
})

test_that("Test 404", {
  skip_on_cran()
  skip_if_gisco_offline()

  options(gisco_test_404 = TRUE)
  expect_message(
    n <- gisco_bulk_download(update_cache = TRUE),
    "Error"
  )
  expect_null(n)

  options(gisco_test_404 = FALSE)
})

test_that("Deprecations", {
  skip_on_cran()
  skip_if_gisco_offline()
  cdir <- file.path(tempdir(), "testthat", "bulk")
  if (dir.exists(cdir)) {
    unlink(cdir, force = TRUE, recursive = TRUE)
  }

  expect_snapshot(
    s <- gisco_bulk_download(
      id_giscoR = "coastal_lines",
      resolution = 60,
      cache_dir = cdir
    )
  )

  expect_message(
    s1 <- gisco_bulk_download(
      id = "coastal_lines",
      resolution = 60,
      cache_dir = cdir,
      verbose = TRUE
    )
  )
  expect_identical(s, s1)

  expect_snapshot(
    gisco_bulk_download(
      "nuts",
      resolution = 60,
      recursive = TRUE,
      cache_dir = cdir
    )
  )
  if (dir.exists(cdir)) {
    unlink(cdir, force = TRUE, recursive = TRUE)
  }
})

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

  expect_error(gisco_bulk_download(year = "2000"))
  expect_error(gisco_bulk_download(resolution = "35"))
  expect_snapshot(gisco_bulk_download(id_giscoR = "nutes"), error = TRUE)
  expect_error(gisco_bulk_download(ext = "aa"))
})

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

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

  id <- c(
    "countries",
    "coastal_lines",
    "communes",
    "lau",
    "nuts",
    "urban_audit",
    "postal_codes"
  )

  for (iii in id) {
    y <- db_values(iii, "year", formatted = FALSE) |>
      sort() |>
      range()

    aa <- lapply(y, function(x) {
      s <- gisco_bulk_download(
        iii,
        year = x,
        resolution = 20,
        cache_dir = cdir,
        ext = "shp"
      )

      expect_true(all(file.exists(s)))
    })
  }

  # Additional and extensions
  ss <- gisco_bulk_download(
    "communes",
    year = 2004,
    ext = "svg",
    cache_dir = cdir
  )

  expect_true(all(file.exists(ss)))
  ss <- gisco_bulk_download(
    "countries",
    year = 2024,
    ext = "json",
    cache_dir = cdir,
    resolution = 60
  )
  expect_true(all(file.exists(ss)))
  ss <- gisco_bulk_download(
    "countries",
    year = 2024,
    ext = "gdb",
    cache_dir = cdir,
    resolution = 60
  )
  expect_true(all(file.exists(ss)))

  if (dir.exists(cdir)) {
    unlink(cdir, force = TRUE, recursive = TRUE)
  }
})