R/favAnimal.R

In mfabla/cats: My sandbox package of misc stuff

#' Fav Animal Picker
#' 
#' This function helps you to decide if your favorite animal is the correct choice
#' 
#' @param pick_favorite_animal Enter your favorite animal...use ' around your entered selection
#' @examples favAnimal('Pig') or favAnimal('fishy')
#' @export




favAnimal <- function(pick_favorite_animal){
  s <- tolower(pick_favorite_animal)
  if(s == 'cat'){
    cat('You picked correct...cat is fav animal!!')
  } else{
    cat('WROOOONG!...should have picked cat\n')
  }
}