R/emoji_functions.R

In stannir98/bigfuntest: What the Package Does (One Line, Title Case)

#' Prints data frame and emoji
#' @param x a data frame
#' @param ... arguments passed to \code{\link{print}}
#' @export

print_emoji <- function(x, ...) {
  UseMethod("print_emoji")
}

#' @importFrom crayon red green yellow blue magenta cyan
#' @import emo
#' @rdname print_emoji
#' @export

print_emoji.data.frame <- function(x, ...) {
  cat(
    ji("rainbow"),
    red("Here to add a"), green("P"),
    yellow("O"), blue("P"),
    magenta("of color to your"),
    cyan("dataset"),
    ji("red_heart"),
    ji("blue_heart"),
    ji("sparkling_heart"),
    ji("green_heart"),
    "\n"
  )
  print.data.frame(x, ...)
}