R/say_aloha.R

In karenezhao/alohakez:

#' Title
#'
#' @param name
#' @param print
#'
#' @return
#' @export
#'
#' @examples
say_aloha <- function(name, print = TRUE) {

  message <- paste("Aloha,",
                   name,
                   emo::ji("palm_tree"),
                   emo::ji("sunny"),
                   emo::ji("ocean"))

  if (print) {
    cat(crayon::bgGreen(message))
  }

  invisible(message)
}