From 3f5e65f3e18ca32347c5147c61dbd555de4bd94b Mon Sep 17 00:00:00 2001
From: Vincent Arel-Bundock <vincent.arel-bundock@umontreal.ca>
Date: Wed, 27 Mar 2024 13:53:33 -0400
Subject: [PATCH] print

---
 R/print.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/print.R b/R/print.R
index af084e04..3b711b77 100644
--- a/R/print.R
+++ b/R/print.R
@@ -62,6 +62,8 @@ print.tinytable <- function(x,
     output <- sanitize_output(output)
   }
 
+  message(output)
+
   if (output == "html") {
     dir <- tempfile()
     dir.create(dir)
@@ -106,5 +108,5 @@ print.tinytable <- function(x,
 
 
 setMethod("show", "tinytable", function(object) {
-  print.tinytable(object, output = object@output)
+  print.tinytable(object, output = getOption("tinytable_print_output", default = NULL))
 })