From cea7ebe36f85fb462761f9e0257af0c63741ef0f Mon Sep 17 00:00:00 2001
From: simonpcouch <simonpatrickcouch@gmail.com>
Date: Wed, 23 Oct 2024 14:02:34 -0500
Subject: [PATCH] `cat()` rather than raising conditions (closes #229)

---
 NEWS.md   |  3 +++
 R/print.R | 17 +++++++++--------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 1be7a91a..8357d356 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,8 @@
 # stacks (development version)
 
+* Model stack and data stack print methods no longer raise conditions to
+  print to the console (#228).
+
 * Added missing commas and addressed formatting issues throughout the vignettes and articles. Backticks for package names were removed and missing parentheses for functions were added (@Joscelinrocha, #218).
   
 # stacks 1.0.5
diff --git a/R/print.R b/R/print.R
index 5aef3b93..67157cbc 100644
--- a/R/print.R
+++ b/R/print.R
@@ -53,7 +53,7 @@ print.data_stack <- function(x, ...) {
 #' @export
 print.model_stack <- function(x, n = 10, ...) {
   
-  rlang::inform(cli::rule("A stacked ensemble model", 
+  cli::cli_text(cli::rule("A stacked ensemble model", 
                           width = min(65, cli::console_width())))
   
   member_summary(x)
@@ -61,7 +61,8 @@ print.model_stack <- function(x, n = 10, ...) {
   print_top_coefs(x)
   
   if (is.null(x[["member_fits"]])) {
-    rlang::inform("\nMembers have not yet been fitted with `fit_members()`.")
+    cli::cli_text("\n")
+    cli::cli_text("Members have not yet been fitted with `fit_members()`.")
   }
   
   invisible(NULL)
@@ -69,10 +70,11 @@ print.model_stack <- function(x, n = 10, ...) {
 
 #' @export
 print.butchered_linear_stack <- function(x, ...) {
-  rlang::inform(cli::rule("A stacked ensemble model", 
+  cli::cli_text(cli::rule("A stacked ensemble model", 
                           width = min(65, cli::console_width())))
   
-  rlang::inform("\nPrint methods for butchered model stacks are disabled.")
+  cli::cli_text("\n")
+  cli::cli_text("Print methods for butchered model stacks are disabled.")
 }
 
 top_coefs <- function(x, penalty = x$penalty$penalty, n = 10) {
@@ -131,10 +133,9 @@ top_coefs <- function(x, penalty = x$penalty$penalty, n = 10) {
 print_top_coefs <- function(x, penalty = x$penalty$penalty, n = 10, digits = 3) {
   res <- top_coefs(x, penalty = penalty, n = n)
   
-  msg <- paste0("\nThe ", nrow(res), " highest weighted member",
-               if (x$mode == "regression") {"s"} else {" classes"},
-               " are:")
-  rlang::inform(msg)
+  cli::cli_text("\n")
+  values <- if (x$mode == "regression") {"s"} else {" classes"}
+  cli::cli_text("The {nrow(res)} highest weighted member{values} are:")
   print(res)
   invisible(NULL)
 }