R/hello_goodbye.R

In threadingdata/tester: My Package

#' @title Hello Goodbye
#' @description Say hello how you like
#'
#' @param name Insert a name, or saying
#'
#' @importFrom stringr str_c
#'
#' @return vector with salutation
#' @export
#'
#' @examples
#' hello_goodbye('Name')
hello_goodbye <- function(name){
  stopifnot(is.character(name))
  stringr::str_c(hello(name), ' and ', tolower(goodbye(name)))
}