check matrix is compatible with heatmap matrix

Yunuuuu · Jun 26, 2024 · ac5ef34 · ac5ef34
1 parent 029f973
commit ac5ef34
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/eanno.R b/R/eanno.R
@@ -319,6 +319,13 @@ methods::setMethod(
                     ))
                 }
             )
+            if (nrow(mat) != nrow(data)) {
+                cli::cli_abort(paste(
+                    "{.fn @matrix} of {id} must a {.cls matrix}",
+                    "with {nrow(mat)} observation{?s}, but the heatmap",
+                    "contain {nrow(data)} for {which} annotation."
+                ))
+            }
             object@n <- nrow(mat)
         }
         object@matrix <- mat