app.R

In EmilHvitfeldt/emojify: What the Package Does (One Line, Title Case)

library(shiny)
library(emojify)

ui <- fluidPage(
  titlePanel("reactR HTMLWidget Example"),
  emojifyOutput('widgetOutput')
)

server <- function(input, output, session) {
  output$widgetOutput <- renderEmojify(
    emojify(set='emojione')
  )
}

shinyApp(ui, server)