R/cat_function.R

In JenC36/JACtools: A Set of Relatively Useful Functions

# TODO: Add comment
# 
# Author: jennifer.cahalan
###############################################################################
#' A Cat Function
#'
#' This function allows you to express your love of cats.
#' @param love Do you love cats? Defaults to TRUE.
#' @keywords cats
#' @export
#' @examples
#' cat_function()

cat_function <- function(love=TRUE){
	if(love==TRUE){
		print("I love cats! Always!")
	}
	else {
		print("I am not a cool person. :-(")
	}
}