library(remoji)
library(htmltools)
library(stringi)

twemoji()

tags$p(HTML("I 💗 emoji!"))

I 💗 emoji!

I 💗 emoji!

tagList(
  lapply(
    find_emoji(""),
    function(heart){
      tags$div(
        style="float:left;",
        HTML(stri_trans_general(emoji(heart),"any-hex/xml"))
      )
    }
  )
)