support interperting marix/array

easystats · Dec 6, 2024 · 6061bab · 6061bab
1 parent 4371a7a
commit 6061bab
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/interpret.R b/R/interpret.R
@@ -159,6 +159,9 @@ interpret.numeric <- function(x, rules, name = attr(rules, "rule_name"),
 
   if (length(x_tran) > 1) {
     out <- vapply(x_tran, .interpret, rules = rules, FUN.VALUE = character(1L))
+    if (is.matrix(x_tran) || is.array(x_tran)) {
+      out <- structure(out, dim = dim(x_tran), dimnames = dimnames(x_tran))
+    }
   } else {
     out <- .interpret(x_tran, rules = rules)
   }