library(shinySelect)
library(fontawesome)
library(shiny)
food <- HTMLchoices(
labels = list(
tags$span(fa_i("hamburger"), "Hamburger"),
tags$span(fa_i("pizza-slice"), "Pizza"),
tags$span(fa_i("fish"), "Fish")
),
values = list("hamburger", "pizza", "fish")
)
Run the code above in your browser using DataLab