Correct stop to abort

This commit is contained in:
gnoblet 2023-02-19 22:29:27 -05:00
parent 1cf130665c
commit 5edf0c7700

View file

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