R/functions.R

In jmseiden/World-Greeting-2: Greet and say goodbye to the world

#' Goodbye World
#'
#' @description  Print out "Goodbye World" a user-specified number of times
#' @author Jonathan Seiden
#' @keywords useless-functions
#' @param n An integer greater than or equal to zero
#' @return "Goodbye World" \code{n} times
#' @examples
#' goodbye_world(2)
#' goodbye_world(5)
#' @export

goodbye_world <- function(n) {
  rep("Goobye World", n)
}

#'Print out "Hello World" a user-specified number of times
#' @param n A number
#' @return "Hello World" \code{n} times
#' @examples
#' hello_world(2)
#' hello_world(5)
#' @export

hello_world <- function(n) {
  rep("Hello World", n)
}