R/praise_nicely.R

In HanjoStudy/satrday_pkg_dev: Create Fake People

#' Praise
#' @param name name (character) 
#'
#' @importFrom  magrittr "%>%" 
#' @return a praise(character)
#' @export

praise_nicely <- function(name = "Hanjo"){
  praise::praise(template = paste0(name, " is ${adjective}")) %>% 
    toupper
}