fix: warning when metadata colors are a list instead of a vector

tanaylab · Apr 14, 2024 · 5cd5a94 · 5cd5a94
1 parent 85a61fe
commit 5cd5a94
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/metadata.R b/R/metadata.R
@@ -569,13 +569,14 @@ parse_metadata_colors <- function(metadata_colors, metadata) {
                 ))
             }
         } else {
-            if (is.list(.x) && all(names(.x) == c("colors", "categories"))) {
+            if (is.list(.x) && length(names(.x)) == 2 && all(names(.x) == c("colors", "categories"))) {
                 res <- .x$colors
                 names(res) <- .x$categories
             } else {
                 if (is.null(names(.x))) {
                     cli_abort("In metadata colors field {.field {.y}}, color vector doesn't have any names.")
                 }
+
                 res <- .x
             }
             return(res)