use is.matrix to check matrix

Yunuuuu · Sep 9, 2023 · 407117a · 407117a
1 parent 5a09945
commit 407117a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/log_transformation.R b/R/log_transformation.R
@@ -16,7 +16,7 @@
 log_trans <- function(data, pseudo = 1) {
     if (inherits(data, "ExpressionSet")) {
         expr_data <- Biobase::exprs(data)
-    } else if (inherits(data, "matrix")) {
+    } else if (is.matrix(data)) {
         expr_data <- data
     } else {
         cli::cli_abort("data should must be a {.cls matrix} or {.cls ExpressionSet}")