Use colors on icons in Shiny. #r #shiny

colored_icons_shiny.R

library(shiny)
library(DT)
library(dplyr)

ui <- basicPage(
  tags$style(".glyphicon-ok-sign {color:#2b8ee5}
              .glyphicon-question-sign {color:#f4e107}
              .glyphicon-exclamation-sign {color:#e5413b}
              .glyphicon-flag, .glyphicon-trash {color:#28b728}"),
  DT::dataTableOutput("table")
)

server <- function(input, output, session) {
  gicon <- function(x) as.character(icon(x, lib = "glyphicon"))
  output$table <- DT::renderDataTable({
    completed <- rep(gicon("ok"), 6)
    icon <- c("", gicon("ok-sign"), gicon("question-sign"), gicon("exclamation-sign"), gicon("flag"), gicon("trash"))
    status <- c("new", "entered", "skipped", "issue", "validated", "removed")
    datatable(cbind(completed, icon, status), escape = FALSE) 
  })
}

shinyApp(ui, server)