Use icons in DT datatable in Shiny. #r #shiny #dt

icon_in_dt.R

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

ui <- basicPage(
  DT::dataTableOutput("table")
)

server <- function(input, output, session) {
  output$table <- DT::renderDataTable({
    data <- mtcars %>% 
      mutate(icon = as.character(icon("tag", lib = "glyphicon")))
    datatable(data, escape = FALSE) 
  })
}

shinyApp(ui, server)

icon_in_dt2.R

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

ui <- basicPage(
  DT::dataTableOutput("table")
)

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

shinyApp(ui, server)

This has been wicked helpful. Thank you!