R/hello.R

In fmmmendes/sayhello: Say Hello

#' Hello Function
#'
#' @param name Name to insert, character type.
#'
#' @return Print message based on the input.
#' @export
#'
#' @examples hello(name = "John")
hello <- function(name) {
    if(is.character(name)){
        print(paste('Hello',name,'!'))
    }else{
        warning('The input is not a character, try again')

    }

}