Update utils_color_contrast.R

rstudio · Oct 4, 2024 · 6cc88f1 · 6cc88f1
1 parent 1975ef2
commit 6cc88f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils_color_contrast.R b/R/utils_color_contrast.R
@@ -54,7 +54,7 @@ get_contrast_ratio <- function(
 ) {
 
   # Get the correct `algo` value
-  algo <- rlang::arg_match(algo)
+  algo <- rlang::arg_match0(algo, values = c("apca", "wcag"))
 
   if (length(color_1) < 1L || length(color_2) < 1L) {
     cli::cli_abort(