R/praise_nicely.R

In theoniphotopoulou/iemand: What the Package Does (One Line, Title Case)

#' A function for producing praise words
#'
#' @param name name (character)
#' @importFrom magrittr "%>%"
#'
#' @return character
#' @export
#' @examples praise_nicely("everyone")
praise_nicely <- function(name){
  praise::praise(template = paste0(name, " is ${adjective}"))
}