tests/testthat/test-gisco-get-communes.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_communes(update_cache = TRUE, spatialtype = "LB"),
    "Error"
  )
  expect_null(n)

  options(gisco_test_404 = FALSE)
})


test_that("Communes errors", {
  skip_on_cran()
  skip_if_gisco_offline()
  expect_error(gisco_get_communes(year = "2007"))
  expect_error(gisco_get_communes(epsg = "9999"))
  expect_error(gisco_get_communes(year = "2004", spatialtype = "COASTL"))
  expect_error(gisco_get_communes(year = "2004", spatialtype = "INLAND"))
  expect_error(gisco_get_communes(spatialtype = "ERR"))
})

test_that("Communes online", {
  skip_on_cran()
  skip_if_gisco_offline()

  expect_silent(gisco_get_communes(spatialtype = "COASTL"))

  # Trying to query a dataset without a country field. Should show a message
  # even with verbose TRUE

  # Fixed now
  expect_silent(gisco_get_communes(
    spatialtype = "COASTL",
    country = "LU",
    verbose = FALSE
  ))

  expect_message(s2 <- gisco_get_communes(spatialtype = "LB", verbose = TRUE))
  expect_s3_class(s2, "tbl_df")
  expect_s3_class(s2, "sf")
  expect_silent(lu <- gisco_get_communes(spatialtype = "LB", country = "LU"))
  expect_s3_class(lu, "tbl_df")
  expect_s3_class(lu, "sf")
  expect_equal(as.character(unique(lu$CNTR_CODE)), "LU")
})

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

  expect_snapshot(
    s <- gisco_get_communes(
      cache = FALSE,
      spatialtype = "LB"
    )
  )
})

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

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

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

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

  db_geojson <- gisco_get_communes(
    year = 2016,
    spatialtype = "LB",
    cache_dir = cdir,
    ext = "geojson"
  )
  expect_s3_class(db_geojson, "sf")
  expect_s3_class(db_geojson, "tbl_df")

  # Filter
  db_geojson <- gisco_get_communes(
    year = 2016,
    spatialtype = "LB",
    cache_dir = cdir,
    ext = "geojson",
    verbose = TRUE,
    country = "ES"
  )
  expect_length(
    list.files(cdir, recursive = TRUE, pattern = "geojson"),
    1
  )

  db_gpkg <- gisco_get_communes(
    year = 2013,
    spatialtype = "LB",
    cache_dir = cdir,
    ext = "gpkg"
  )

  expect_s3_class(db_gpkg, "sf")
  expect_s3_class(db_gpkg, "tbl_df")

  # Filter
  db_gpkg <- gisco_get_communes(
    year = 2013,
    spatialtype = "LB",
    cache_dir = cdir,
    ext = "gpkg",
    verbose = TRUE,
    country = "ES"
  )
  expect_length(
    list.files(cdir, recursive = TRUE, pattern = "gpkg"),
    1
  )

  expect_silent(
    db_gpkg <- gisco_get_communes(
      year = 2013,
      spatialtype = "COASTL",
      cache_dir = cdir,
      ext = "gpkg",
      country = "ES"
    )
  )

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