Replace multiple patterns with different replacements in R

Question

I'm probably blind in one eye, but I can't find a "smarter" solution to my problem. I want to replace the emojis with their description which are stored in a separate dataframe. Is there a more convenient way to replace them?

My reproducible example:

library("tidyverse")

emojis <- tibble(
  "descr" = c("grinning","rofl","smile"),
  "emoji" = c("","","")
)

data <- tibble(
  content = c("Hi ", "", "lol")
)

for (i in 1:nrow(emojis)) {
  pattern <- emojis[i,"emoji"] %>% pull()
  replacement <- emojis[i,"descr"] %>% pull()
  data <- data %>%
    mutate(content = str_replace_all(content,pattern,replacement))
}

Answer 1

If we use str_replace_all's ability to take named replacements, we can do this in one step:

stringr::str_replace_all(data$content, setNames(emojis$descr, emojis$emoji))
# [1] "Hi smile"  "smilerofl" "lol"