r 在Shiny中使用DT数据表中的图标

Posted 2021-05-23

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)

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)