R/s3method.R

In sunniraleigh/wetry: This Will Do Something

#' Prints a data frame with a fun message.
#' @param x a dataframe
#' @param ... arguments passed to \code{\link{print}}
#' @export
print_emoji <- function(x, ...){
  UseMethod("print_emoji")
}


#' @export
#' @rdname print_emoji
#' @importFrom crayon red bgYellow
#' @import emo
print_emoji.data.frame <- function(x, ...){
  cat(ji("maple_leaf"), ji("fallen_leaf"), red("Looks like you're FALLing for data science!!"), ji("fallen_leaf"), ji("maple_leaf"), " \n", bgYellow("Here is your data:"), " \n")

  print.data.frame(x, ...)
}