emojify.R

library(emo)
library(stringr)
library(purrr)

emoji_name <- emo:::emoji_name
emoji_keyword <- emo:::emoji_keyword

maybe_emoji <- function( keyword ){
  if (keyword %in% names(emoji_name)) {
    return(emoji_name[[keyword]])
  }
  # if (keyword %in% names(emoji_keyword)) {
  #   candidates <- emoji_keyword[[keyword]]
  #   name <- sample(candidates, 1)
  #   return(emoji_name[[name]])
  # }
  keyword
}

print.emojified <- function(x, ...){
  cat( x )
  invisible(x)
}

emojify <- function( txt ){
  str_split( txt, " ")[[1]] %>%
    map_chr(maybe_emoji) %>%
    paste( collapse = " " ) %>%
    structure( class = "emojified" )
}

emojify( "Simba is a baby lion" )
emojify( "A rose by any other name would smell as sweet")