Use colors on icons in Shiny. #r #shiny
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)