Shiny DT表中的小图标

我们可以在DT表中的值旁边添加一个小图标吗。范例

if (interactive()) {
  library(shiny)
  library(shinyWidgets)
  library(DT)
  
  ui <- fluidPage(
    tags$h3("Material switch examples"),
    
    fluidRow(column(width = 12),
             fluidRow(box(width = 4, dateInput("date","Date", value = Sys.time(), min = Sys.time(), max = Sys.time()-30)),
                      box(width = 7, selectInput("df","DF",choices = unique(iris$Species)),offset = 0),
                      box(width = 2, actionButton("ab","Action")))),
    dataTableOutput("df")
  )
  server <- function(input, output) {
    
    output$df <- DT::renderDataTable({
      datatable(head(iris),caption = "Iris",options = list(dom = 'ft'))
    })
    
  }
  shinyApp(ui, server)
}

if（交互式（））{
图书馆（闪亮）
图书馆（shinyWidgets）
图书馆（DT）
ui您可以使用
图标
显示向上箭头


  library(shiny)
  library(shinyWidgets)
  library(DT)
  library(dplyr)
  
  ui <- fluidPage(
    tags$h3("Material switch examples"),
    
   
    dataTableOutput("df")
  )

    server <- function(input, output) {
    
      
    data <- head(iris) %>% mutate(Species = paste(Species,as.character(icon("arrow-up", lib = "glyphicon")))) 
    output$df <- DT::renderDataTable({
      datatable(data,caption = "Iris",options = list(dom = 'ft'),escape=FALSE, selection = list(mode = 'single',target = 'cell'))
    })
    

  }
  shinyApp(ui, server)


图书馆（闪亮）
图书馆（shinyWidgets）
图书馆（DT）
图书馆（dplyr）
ui你能通过“它应该是可点击的”来澄清你的期望吗？是的：它应该是可点击的。当你点击图标时会发生什么？打开一个模式框Hi Waldi，你需要更多的信息吗？首先感谢你的努力。实际上，你已经把它作为单独的一列。但我正试图把它放在“Setosa”的旁边（参考问题）不是作为一个单独的专栏：）我把你搞糊涂了吗？把箭头放在setosa旁边没问题，请看我的编辑。还是一样的：）太好了。谢谢。但是作为你的参考，我尝试了另一种方法。对不起，我想可能有其他的解决方案，但它是一样的。我也在尝试解决这个问题。我尝试了很多。如果你有时间，请看t他的：）无论如何我真的很感激你的时间伙计：）@Vinod，我没有时间再看了。希望你能找到一个满足你需要的解决方案！