R/adam.R

In MarionaMFE/AkikR: A little thing to say goodbye

#' A Adam Function
#'
#' This function allows you to express your love of cats.
#' @param
#' @keywords none
#' @export
#' @examples
#' adam()



adam <- function(){
  message(" --------------------------")
  message(" Thoughthful Akika")
  message(" always giving aid and help")
  message(" improving our team.")
  message(" --------------------------")
  message("    \\ ")
  message("      \\ ")
  message("        \\ ")
  message("            |\\___/| ")
  message("          ==) ^Y^ (==")
  message("            \\  ^  /")
  message("             )=*=(")
  message("            /     \\")
  message("            |     |")
  message("           /| | | |\\")
  message("           \\| | |_|/\\")
  message("           //_// ___/")
  message("               \\_)")
  message("")

}