use .coerce_to_dataframe()

easystats · Aug 10, 2023 · 2a98559 · 2a98559
1 parent bd6d3d9
commit 2a98559
Showing 1 changed file with 1 addition and 9 deletions.
diff --git a/R/rowmean_n.R b/R/rowmean_n.R
@@ -56,15 +56,7 @@
 #'
 #' @export
 rowmean_n <- function(data, n, digits = NULL, verbose = TRUE) {
-  # check if data is data frame or matrix
-  if (!is.data.frame(data) && !is.matrix(data)) {
-    insight::format_error("`data` must be a data frame or matrix.")
-  }
-
-  # coerce matrix to data frame
-  if (is.matrix(data)) {
-    data <- .coerce_to_dataframe(data)
-  }
+  data <- .coerce_to_dataframe(data)
 
   # n must be a numeric, non-missing value
   if (is.null(n) || all(is.na(n)) || !is.numeric(n) || length(n) > 1) {