R/dog_functions.R

In jimmyg3g/dogs: functions about dogs

#' @title A Dog Function
#'
#' @param agree
#'
#' @return
#' @export
#'
#' @examples
#' dogt_over_cats()
dogs_over_cats <- function(agree=TRUE){
  if(agree==TRUE){
    print("Woof woof! WOOF")
  }
  else {
    print("Try again.")
  }
}