Add "array" to list of supported classes for use with tapply()

dcomtois · Apr 4, 2022 · 2dd6929 · 2dd6929
1 parent 9d1237d
commit 2dd6929
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/view.R b/R/view.R
@@ -128,7 +128,7 @@ view <- function(x,
                        escape.pipe   = escape.pipe,
                        ...)
 
-  } else if (inherits(x = x, what = c("stby", "by")) &&
+  } else if (inherits(x = x, what = c("stby", "by", "array")) &&
              attr(x[[1]], "st_type") %in% 
                c("freq", "ctable", "descr", "dfSummary")) {