add format.report_table

easystats · Dec 10, 2020 · 5fdc529 · 5fdc529
1 parent 28628fc
commit 5fdc529
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/NAMESPACE b/NAMESPACE
@@ -6,6 +6,7 @@ S3method(as.report_table,default)
 S3method(as.report_table,report)
 S3method(as.report_text,default)
 S3method(as.report_text,report)
+S3method(format,report_table)
 S3method(print,report)
 S3method(print,report_effectsize)
 S3method(print,report_info)

diff --git a/R/report_table.R b/R/report_table.R
@@ -106,7 +106,12 @@ summary.report_table <- function(object, ...) {
 }
 
 
+#' @export
+format.report_table <- function(x, ...) {
+  insight::parameters_table(x, ...)
+}
+
 #' @export
 print.report_table <- function(x, ...) {
-  cat(insight::format_table(parameters::parameters_table(x, ...), ...))
+  cat(insight::format_table(format(x, ...), ...))
 }