chars <- c(letters[1:4], emoji_name[1:6])
set.seed(1234)
strings <- lapply(1:10, function(x) paste(sample(chars, x), collapse = ""))
extracts <- emoji_match(strings)
extracts <- emoji_match_all(strings)
Run the code above in your browser using DataLab