R/thatsnotmy.R

In alexwhan/thatsnotmy: That's not my package... Its title field is too malformed

#' thatsnotmy
#'
#' @param silent Should the function print to the console?
#' @param break_char A character to break the sentence, default is linebreak
#'
#' @return string
#' @export
#'
#' @examples
#' thatsnotmy()
thatsnotmy <- function(silent = FALSE, break_char = "\n") {
  n1 <- sample(noun, 1)
  n2 <- sample(noun, 1)
  a1 <- sample(adj, 1)

  out_string <- paste0("That's not my ",
         n1,
         "...",
         break_char,
         "its ",
         n2,
         " is too ",
         a1)
  if(!silent) cat(out_string)
  return(invisible(out_string))
}