R/secret.R

In ahmadazim/dadBday: dadBday

#' @title Secret Message
#'
#' @author Ahmad Abdel-Azim \email{agabdel.azim@gmail.com}
#'
#' @name secret
#'
#' @description Bday message.
#'
#' @usage secret()
#'
#'
#'
#' @details 

#'
#' @keywords bday



#' @export
secret <- function(){
  cat("\n", "Happy Birthday Baba. Enjoy the birthday presents that we sent you.", "\n",
      "Thank you so much for teaching me how to code this year. It has undoubtedly", "\n", 
      "empowered me with skills that I will use throughout my entire research path.", "\n",
      "Hopefully this shows you that I've learned something!", "\n", "\n", 
      "Also, thanks for all the help with college apps.", "\n", "\n", "\n", 
"  $$$$$$$$$                   $$$$$$$$$", "\n",
" $$        $$                $$        $$", "\n",
"$           $               $           $", "\n",
"$            $   $$$$$$$$   $            $", "\n",
"$   Ahmad    $ $$        $$ $    Sahar   $", "\n",
"$            $$            $$            $", "\n",
" $         $$ $            $ $         $$", "\n",
"  $$$    $$$  $   Maryam   $  $$$    $$$", "\n",
"     $$$$     $            $     $$$$", "\n",
"       $$      $         $$       $$", "\n",
"      $$        $$$    $$        $$", "\n",
"     $$            $$$$         $$", "\n",
"    $                $$        $", "\n",
"    $               $$         $", "\n",
"    $$             $$          $$", "\n",
"     $$           $             $$", "\n",
"       $$         $               $$", "\n",
"         $        $$                $", "\n",
"         $         $$               $", "\n",
"         $           $$             $", "\n",
"                       $", "\n",
"                        $", "\n", "\n"

     
     
     )
}