R/quote.R

In mlhutchins/tmath: Don't Worry About It

#' Get a Mr. T Quote
#'
#' @return An awesome Mr. T quote
#' @export
getTQuote <- function() {

    quotes <- c("I pity the FOOL!",
                "I aint gettin on no plane!",
                "Quit yo Jibba Jabba!",
                "Shut up, fool!",
                "Life's tough, but I'm tougher!",
                "Do some prep!",
                "I'm on a real short leash here",
                "Don't make me mad, Arrr!",
                "You're gonna meet my friend, PAIN!",
                "You aint hurt, you pathetic!")

    return(sample(quotes, 1))

}

#' Make Mr. T say a an awesome Mr. T. Quote
#'
#' @return Nothing
#' @export
mrTSay <- function(){
  layer <- '|
 |    
 |        ,, 
  \\     """""
   \\    """""
     .--"""""--. 
 (  )   __   __ (  )  
  \\/"+=a88b"d88b=\\_/   
   | \\    __J   / \\_
  /   \\_/-`  `\\_/   |
  | |   [+++++]     /
  \\   __        \\ _/
   \\__        \\___/    
    o \\___/_____/ o
     O           O
      O    __   O
        O /  \\ O
          \\__/
'
cat("'", getTQuote(), "'\n", layer)
}