Update tests

CITATION.cff

@@ -111,7 +111,7 @@ references:
   authors:
   - family-names: Ooms
     given-names: Jeroen
-    email: [email protected]
+    email: [email protected]
     orcid: https://orcid.org/0000-0002-4035-0289
   year: '2024'
   identifiers:

README.md

@@ -360,8 +360,7 @@ This package is in no way officially related to or endorsed by Eurostat.
 
 ## References
 
-<div id="refs" class="references csl-bib-body hanging-indent"
-entry-spacing="0">
+<div id="refs" class="references csl-bib-body hanging-indent">
 
 <div id="ref-RJ-2017-019" class="csl-entry">
 

codemeta.json

@@ -14,7 +14,7 @@
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
+  "runtimePlatform": "R version 4.4.1 (2024-06-14)",
   "provider": {
     "@id": "https://cran.r-project.org",
     "@type": "Organization",
@@ -240,7 +240,7 @@
   "applicationCategory": "cartography",
   "isPartOf": "http://ropengov.org/",
   "keywords": ["ropengov", "r", "spatial", "api-wrapper", "rstats", "r-package", "eurostat", "gisco", "thematic-maps", "eurostat-data", "cran", "ggplot2", "gis"],
-  "fileSize": "1244.028KB",
+  "fileSize": "1234.726KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",

inst/schemaorg.json

@@ -40,7 +40,7 @@
         "name": "Comprehensive R Archive Network (CRAN)",
         "url": "https://cran.r-project.org"
       },
-      "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
+      "runtimePlatform": "R version 4.4.1 (2024-06-14)",
       "version": "0.6.0"
     },
     {

tests/testthat/test-gisco_get_communes.R

@@ -1,39 +1,34 @@
-test_that("Communes 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
-  expect_message(gisco_get_communes(
-    spatialtype = "COASTL",
-    country = "LU", verbose = FALSE
-  ))
-
-  expect_message(gisco_get_communes(spatialtype = "LB", verbose = TRUE))
-  lu <- expect_silent(gisco_get_communes(spatialtype = "LB", country = "LU"))
-
-  expect_equal(as.character(unique(lu$CNTR_CODE)), "LU")
-
-  # Test selected years
-  years <- c("2001", "2013")
-
-  # Liechtenstein
-  for (i in seq_len(length(years))) {
-    lb <- gisco_get_communes(
-      spatialtype = "LB", country = "LU", year = years[i],
-      verbose = FALSE
-    )
-
-    expect_equal(as.character(unique(lb$CNTR_CODE)), "LU")
-  }
-})
+test_that("Communes 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
+  expect_message(gisco_get_communes(
+    spatialtype = "COASTL",
+    country = "LU", verbose = FALSE
+  ))
+
+  expect_message(gisco_get_communes(spatialtype = "LB", verbose = TRUE))
+  lu <- expect_silent(gisco_get_communes(spatialtype = "LB", country = "LU"))
+
+  expect_equal(as.character(unique(lu$CNTR_CODE)), "LU")
+
+  # Test selected years
+  lb <- gisco_get_communes(
+    spatialtype = "LB", country = "LU", year = "2013",
+    verbose = FALSE
+  )
+
+  expect_equal(as.character(unique(lb$CNTR_CODE)), "LU")
+})