R/aggro.R

In jhavstad8/inspiRe: Gives inspirational and motivational messages

#' A more direct and aggressive message to be better
#'
#' @param name A character string of a name
#'
#' @return A message which tells you to be better
#'
#' @examples
#' aggro("Josh")
#'
#' @export


aggro <- function(name){
  message <- choose_aggro(name)
  return(message)
}

#' Chooses one aggressive message from a list
#' @param name The name of the person you are giving the message to
#' @return a message string

choose_aggro <- function(name){
m1 <- glue::glue("Try not to be an idiot today, {name}.")
m2 <- glue::glue("You've spent too many years being a loser. It's time to be a winner {name}.")
m3 <- glue::glue("{name}, you're going to be a loner forever if you keep doing what you're doing.")
mlist <- c(m1,m2,m3)
num <- floor(runif(1,1,4))
message <- mlist[num]
return(message)
}