Emoji extraction nested summary — emoji_extract

This function adds an extra list column called .emoji_unicode to the original data, with all Emojis included.

Usage

emoji_extract_nest(tweet_tbl, tweet_text)

Arguments

tweet_tbl: A dataframe/tibble containing tweets/text.
tweet_text: The tweet/text column.

Value

The original dataframe/tibble with an extra column collumn called .emoji_unicode.

Examples

library(dplyr)
data.frame(tweets = c("I love tidyverse \U0001f600\U0001f603\U0001f603",
                      "R is my language! \U0001f601\U0001f606\U0001f605",
                      "This Tweet does not have Emoji!",
                      "Wearing a mask\U0001f637\U0001f637\U0001f637.",
                      "Emoji does not appear in all Tweets",
                      "A flag \U0001f600\U0001f3c1")) %>%
         emoji_extract_nest(tweets)
#>                                tweets .emoji_unicode
#> 1             I love tidyverse 😀😃😃     😀, 😃, 😃
#> 2            R is my language! 😁😆😅     😁, 😆, 😅
#> 3     This Tweet does not have Emoji!               
#> 4               Wearing a mask😷😷😷.     😷, 😷, 😷
#> 5 Emoji does not appear in all Tweets               
#> 6                         A flag 😀🏁         😀, 🏁