improved error when unable to download cnefe data

DESCRIPTION

@@ -33,6 +33,7 @@ Imports:
     httr2,
     parallel,
     purrr,
+    rlang,
     tools,
     utils,
     zip

R/download_cnefe.R

@@ -98,10 +98,7 @@ download_files <- function(files_to_download, progress) {
     function(r) inherits(r, "error")
   )
 
-  # TODO: improve this error
-  if (any(response_errored)) {
-    stop("Could not download data for one of the states, uh-oh!")
-  }
+  if (any(response_errored)) error_cnefe_download_failed()
 
   return(dest_files)
 }
@@ -125,3 +122,12 @@ perform_requests_in_parallel <- function(requests, dest_files, progress) {
   )
 }
 
+error_cnefe_download_failed <- function() {
+  geocodebr_error(
+    c(
+      "Could not download CNEFE data for one or more states.",
+      "i" = "Please try again later."
+    ),
+    call = rlang::caller_env(n = 2)
+  )
+}

codemeta.json

@@ -309,16 +309,28 @@
       "sameAs": "https://CRAN.R-project.org/package=purrr"
     },
     "13": {
+      "@type": "SoftwareApplication",
+      "identifier": "rlang",
+      "name": "rlang",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=rlang"
+    },
+    "14": {
       "@type": "SoftwareApplication",
       "identifier": "tools",
       "name": "tools"
     },
-    "14": {
+    "15": {
       "@type": "SoftwareApplication",
       "identifier": "utils",
       "name": "utils"
     },
-    "15": {
+    "16": {
       "@type": "SoftwareApplication",
       "identifier": "zip",
       "name": "zip",
@@ -332,7 +344,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "176.64KB",
+  "fileSize": "181.875KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",

tests/testthat/_snaps/download_cnefe.md

@@ -0,0 +1,9 @@
+# errors if could not download the data for one or more states
+
+    Code
+      tester("AL", cache = FALSE)
+    Condition <geocodebr_error_cnefe_download_failed>
+      Error in `download_cnefe()`:
+      ! Could not download CNEFE data for one or more states.
+      i Please try again later.
+

tests/testthat/test-download_cnefe.R

@@ -53,7 +53,12 @@ test_that("errors if could not download the data for one or more states", {
     }
   )
 
-  expect_error(tester("AL", cache = FALSE))
+  expect_error(
+    tester("AL", cache = FALSE),
+    class = "geocodebr_error_cnefe_download_failed"
+  )
+
+  expect_snapshot(tester("AL", cache = FALSE), error = TRUE, cnd_class = TRUE)
 })
 
 test_that("would download the data of all states if state='all'", {