waving_hands <- emojis$emoji[grepl("waving hand", emojis$name)]
waving_hands
emoji_modifier_extract(waving_hands)
set.seed(1234)
emoji_sample <- sample(emojis$emoji, 10)
emoji_sample
emoji_modifier_extract(emoji_sample)
Run the code above in your browser using DataLab