R/print.R

In rich-iannone/blastula: Easily Send HTML Email Messages

#' Print the email object to the Viewer
#'
#' This function will provide a preview of the email message.
#' @param x An `email_message` object.
#' @keywords internal
#' @export
print.blastula_message <- function(x, ...) {

  x[["html_html"]] %>%
    htmltools::html_print()
}