From 5edf0c77003a0bb0914dd7faf3aeb343108a6bdb Mon Sep 17 00:00:00 2001
From: gnoblet <gnoblet@zaclys.net>
Date: Sun, 19 Feb 2023 22:29:27 -0500
Subject: [PATCH] Correct stop to abort

---
 R/theme_reach.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/theme_reach.R b/R/theme_reach.R
index a580047..b096749 100644
--- a/R/theme_reach.R
+++ b/R/theme_reach.R
@@ -107,7 +107,7 @@ theme_reach <- function(
   # - add facet theming
 
   if (!initiative %in% c("reach", "default"))
-    rlang::stop(
+    rlang::abort(
       c(
         paste0("There is no initiative '", initiative, " to be used with theme_reach()."),
         "i" = paste0("initiative should be either 'reach', 'agora' or 'default'")