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