R/pluralize_gift.R

In PaolaRendon/twelvedays: Sing the 12 Days of Christmas

#' Takes a noun and makes it plural
#'
#' @param gift A string or vector of strings
#'
#' @return A string or vector of strings with the pluralized words
#'
#' @import stringr
#' @import dplyr
#' @import glue
#' @import purrr
#'
#' @export
pluralize_gift <- function(gift){

gift <- gift %>%
  str_replace("\\b$", "s")

return(gift)

}