R/cat_counter.R

In mfabla/cats: My sandbox package of misc stuff

#' Cat Counter
#' 
#' This function is a cat calculator
#' @param total_cats Enter the total number of cats you have.
#' @return The total sum of cats that you have and that I have.
#' @examples cat_counter(total_cats = 5)
#' @export


cat_counter <- function(total_cats){
  y <- sample(x = 1:100, size = 1)
  message(paste0("\n\tOkay, well I have a total of ", y, " cats" ))
  message(paste0("\n\tThis makes a total of ", total_cats + y, " cats"))
}