#' Prints a string with emojis.
#' @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 yellow
#' @import emo
#' @examples
#' print_emoji(mtcars)
print_emoji.data.frame <- function(x, ...){
cat(yellow("Would you look at that! You're printing a data frame!
You're a ~SUPER"), ji("star"),
yellow("~!!!!"), ji("thumbs up"))
print.data.frame(x, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.