Remove Modifiers from Emojis

Usage

emoji_modifier_remove(x)

Arguments

x: Characters, vector of emojis.

Value

character vector, single emojis will be replaced with un-modified if possible.

Details

This function is vectorized. See emoji_modifiers for full list of modified emojis and their unmodified state.

Examples

waving_hands <- emojis$emoji[grepl("waving hand", emojis$name)]
waving_hands
#> [1] "👋"   "👋🏻" "👋🏼" "👋🏽" "👋🏾" "👋🏿"

emoji_modifier_remove(waving_hands)
#> [1] "👋" "👋" "👋" "👋" "👋" "👋"

set.seed(1234)
emoji_sample <- sample(emojis$emoji, 10)
emoji_sample
#>  [1] "🤷🏽‍♀"       "👩🏾‍🦰"      "🏋️‍♀"          "🙇🏾‍♂"       "➡"          
#>  [6] "🧑🏾‍🤝‍🧑🏻"  "🧎🏼‍♂‍➡"      "👨🏾‍❤‍💋‍👨🏿" "🤸🏻‍♂"       "🏃🏼‍♀‍➡"     

emoji_modifier_remove(emoji_sample)
#>  [1] "🤷‍♀️"    "👩"     "🏋️‍♀"     "🙇‍♂️"    "➡"      "🧑‍🤝‍🧑" "🧎‍♂️‍➡️"   "💏"    
#>  [9] "🤸‍♂️"    "🏃‍♀️‍➡️"