R/inspiration.R

In jhavstad8/inspiRe: Gives inspirational and motivational messages

#' give an inspirational message
#'
#' @param type A character string describing what inspiration they need
#' @param x A number from 1-10 describing how badly they need the message
#' @return An inspirational message
#'
#' @examples
#' iNeed(motivation, 3)
#' iNeed(affirmation, 8)
#'
#' @export


iNeed <- function(type, x) {
  message <- glue::glue("Everyday has the potential to be great.")

  if (type=="motivation"){
    message <- paste(message,
                     "Go and make things happen! No time to be lazy. You got this!")
    if (x >= 7){
      message <- paste(message, "Things may seem bad now, but don't give up!")
    }
  }

  else if (type == "affirmation"){
    message <- paste(message,
                     "You are amazing! Don't let anyone tell you anything different.")
    if (x >=7){
      message <- paste(message,
      "In fact, you are the coolest, funniest, and most intelligent person I know.")
    }
  }
  return(message)
}

#' Shows you what your future will be like if you're confident in yourself
#' @param future A character string representing what you want to know about your future
#' @return A plot which helps you visualize your future
#' @examples
#' confidence("Success")
#' confidence("Wealth")
#' @export

confidence <- function(future){
  plot(x = seq(0,10,.01), y = seq(0,10,.01),
       xlab = "Amount of Confidence in Yourself", ylab = glue::glue("Future {future}"), main = "This is Scientifically Proven",
       col="red",xlim = c(0,10), ylim = c(0,10))
}