this is cheating, but it works?

easystats · Oct 10, 2022 · 2c51f51 · 2c51f51
1 parent 6731b3a
commit 2c51f51
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -7,6 +7,7 @@ S3method(as.report_table,report)
 S3method(as.report_text,default)
 S3method(as.report_text,report)
 S3method(c,report_table)
+S3method(display,report_table)
 S3method(format,report_table)
 S3method(format_model,character)
 S3method(format_model,default)
@@ -266,6 +267,7 @@ export(cite_citation)
 export(cite_easystats)
 export(cite_packages)
 export(clean_citation)
+export(display)
 export(format_algorithm)
 export(format_citation)
 export(format_formula)
@@ -289,3 +291,4 @@ export(report_story)
 export(report_system)
 export(report_table)
 export(report_text)
+importFrom(insight,display)
diff --git a/R/report_table.R b/R/report_table.R
@@ -145,6 +145,13 @@ c.report_table <- function(...) {
 }
 
 
+#' @export
+display.report_table <- function(object, ...) {
+  class(object) <- c("report_table", "parameters_model", "data.frame")
+  NextMethod()
+}
+
+
 # helper to create table captions and footer -----------------------
 
 .report_table_caption <- function(x) {
@@ -185,3 +192,10 @@ c.report_table <- function(...) {
 
   footer
 }
+
+
+# Reexports models ------------------------
+
+#' @importFrom insight display
+#' @export
+insight::display
diff --git a/man/reexports.Rd b/man/reexports.Rd