Icons in a Shiny dropdown input

The function below generates a Shiny dropdown list including some icons.

library(shiny)
library(fontawesome)
library(htmltools)

selectInputWithIcons