diff --git a/R/chip_related.R b/R/chip_related.R index 26d9d9e..3379545 100644 --- a/R/chip_related.R +++ b/R/chip_related.R @@ -390,7 +390,7 @@ make_enriched_heatmap_list <- function(x, } if(length(heatmap_color_palette) > 1 ) { - if(length(heatmap_color_palette) != heatmap_columns){ + if(length(heatmap_color_palette) != length(heatmap_columns)){ cli::cli_abort("{.arg heatmap_color_palette} must be equal to the length of {.arg heatmap_columns} ") }