library(shiny)

icons <- c(
  "arrows-alt-v","ban","bar-chart","chart-bar","chart-column","chart-line",
  "check","check-circle","cloud-upload-alt","cogs","crown","database","dna",
  "download","edit","exclamation-triangle","file-archive","file-upload",
  "flask","folder-open","hdd","heart","history","id-card","infinity",
  "info-circle","key","layer-group","lightbulb","list","list-alt","magic",
  "mars","microscope","paw","play","plus","project-diagram","question-circle",
  "ruler","save","search","sitemap","sliders","sliders-h","star","sync",
  "sync-alt","table","table-cells","tags","terminal","th","th-large",
  "times-circle","trash","upload","user","user-circle","user-plus","users",
  "users-gear","venus","warning"
)

ui <- fluidPage(
  lapply(icons, function(x) {
    div(style = "padding:6px;", strong(x), " : ",
        tryCatch(icon(x), error = function(e) span(style="color:red;", e$message)))
  })
)

server <- function(input, output, session) {}
shinyApp(ui, server)