r - 修改 DataTables 包中的 R Shiny 搜索栏外观和位置

Question

是否可以将作为 R Shiny 数据表中表格一部分的搜索栏移动到前面和中间，以及修改它的外观？（即在其中添加一个搜索图标）。这是我希望它的理想外观（搜索栏在中间和顶部）：

作为参考，以下是 R Shiny 中标准 DataTable 的示例：

标签： rshinyshinydashboarddt

Answer 1

以下是获取图标的方法：

library(DT)
library(shiny)

ui <- fluidPage(
  br(),
  DTOutput("dtable")
)

server <- function(input, output, session){
  
  output[["dtable"]] <- renderDT({
    datatable(
      head(iris, 5), 
      options = list(
        language = list(
          search = "<i class='glyphicon glyphicon-search'></i>"
        )
      )
    )    
  })
  
}

shinyApp(ui, server)