custom geocodebr error

R/error.R

@@ -0,0 +1,11 @@
+geocodebr_error <- function(message, call, .envir = parent.frame()) {
+  error_call <- sys.call(-1)
+  error_function <- as.name(error_call[[1]])
+
+  error_classes <- c(
+    paste0("geocodebr_error_", sub("^error_", "", error_function)),
+    "geocodebr_error"
+  )
+
+  cli::cli_abort(message, class = error_classes, call = call, .envir = .envir)
+}

tests/testthat/_snaps/error.md

@@ -0,0 +1,9 @@
+# erro funciona corretamente
+
+    Code
+      parent_function()
+    Condition <geocodebr_error_test>
+      Error in `parent_function()`:
+      ! test
+      * info
+

tests/testthat/test-error.R

@@ -0,0 +1,12 @@
+parent_function <- function() error_test()
+
+error_test <- function() {
+  geocodebr_error(c("test", "*" = "info"), call = rlang::caller_env())
+}
+
+test_that("erro funciona corretamente", {
+  expect_error(parent_function(), class = "geocodebr_error_test")
+  expect_error(parent_function(), class = "geocodebr_error")
+
+  expect_snapshot(parent_function(), error = TRUE, cnd_class = TRUE)
+})