R/print.R

In statlingua: Explain Statistical Output with Large Language Models

#' Print LLM explanation
#'
#' Print a formatted version of an LLMs explanation using [cat()].
#'
#' @param x A [statlingua_explanation][explain] object.
#'
#' @param ... Additional optional arguments to be passed to [print.default()].
#'
#' @returns Invisibly returns the printed [statlingua_explanation][explain]
#' object.
#'
#' @export
print.statlingua_explanation <- function(x, ...) {
  cat(x$text, "\n")  # or just cat(x$text) if newlines are already in text
  invisible(x)
}