little script to see what emojis are available with the emojifont package in R.

emojis.R

library(rvest)
library(stringr)
library(emojifont)
library(tidyverse)

url <- "http://www.webpagefx.com/tools/emoji-cheat-sheet/"
page <- read_html(url)
nodes <- html_nodes(page, css = "#content")
text <- html_text(nodes)
txt <- data_frame(label = unlist(str_extract_all(text, ":[a-z_]*:"))) %>% 
  mutate(label = gsub(":", "", label))
  txt <- txt %>% 
  mutate(emoji_code = NA)

for(i in 1:nrow(txt)){
  try(txt$emoji_code[i] <- emoji(txt$label[i]))
}

txt <- txt %>% 
  filter(!is.na(emoji_code))


knitr::kable(txt, format = "markdown")