use check_object()

r-lib · Oct 22, 2024 · 0c47e9d · 0c47e9d
1 parent d515141
commit 0c47e9d
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/colour-manip.R b/R/colour-manip.R
@@ -251,9 +251,7 @@ col_saturate.scales_pal <- function(col, amount = 10) {
 }
 
 wrap_col_adjustment <- function(inner, outer, args, call = caller_env()) {
-  if (!is_colour_pal(inner)) {
-    cli::cli_abort("palette must be a {.field colour} palette.", call = call)
-  }
+  check_object(inner, is_colour_pal, "a {.field colour} palette")
   force_all(inner, outer, args)
   fun <- function(...) inject(outer(inner(...), !!!args))
   if (is_discrete_pal(inner)) {