R/cat_function.R

In mfabla/cats: My sandbox package of misc stuff

#' A Cat Function
#'
#' This fucntion allows you to express your love of cats.
#' @param love Do you love cats? Defaults to TRUE.
#' @keywords cats
#' @examples cat_function(love = T)
#' @export





cat_function <- function(love = TRUE){
  if(love == TRUE) {
    print("I love cats")
  }
  else {
    print("I hate cats")
  }
}