#' Say Aloha
#'
#' @description This function will say aloha to any inputted name.
#'
#' @param name (character) A name to say aloha to.
#' @param print (logical) Option to print your message. Defaults to \code{TRUE}
#'
#' @return (character) An aloha message
#'
#' @examples
#' # Say hello to a friend
#' friend <- "Irene"
#' say_aloha(friend)
#'
#' @importFrom crayon bgGreen
#' @importFrom emo ji
#'
#' @export
say_aloha <- function(name, print = TRUE) {
if (!(is.character(name) & nchar(name) > 0)) {
stop("Name must be a non empty character.
Input a name you want to say aloha to!")
}
stopifnot(is.logical(print))
message <- paste("Aloha,",
name,
emo::ji("palm_tree"),
emo::ji("sunny"),
emo::ji("ocean"))
if (print) {
cat(crayon::bgGreen(message))
}
invisible(message)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.