R/goodbye.R

In threadingdata/tester: My Package

#' @title Goodbye function
#' @description Say goodbye how you like
#'
#' @param name Insert a name, or saying
#'
#' @return vector with salutation
#' @export
#'
#' @examples
#' goodbye('Derek')
goodbye <- function(name) {
  stopifnot(is.character(name))
  print(paste0("Adios, ", name,"!"))
}