如何使用 DT 包中的 renderDataTable() 格式化数据表的列？答案

【问题标题】：How do I format columns of a datatable using renderDataTable() in the DT package?如何使用 DT 包中的 renderDataTable() 格式化数据表的列？
【发布时间】：2016-12-17 05:59:52
【问题描述】：

我可以像这样格式化数据表对象的一列

library(DT)
datatable(data.frame(Amount=c(1.00, 2.20, 4.15))) %>% formatCurrency(columns='Amount')

但是我怎样才能使用renderDataTable() 做到这一点？

library(shiny)
library(DT)

ui <- shinyUI(fluidPage(
  DT::dataTableOutput('dtoMyTable')
))

server <- shinyServer(function(input, output){
  output$dtoMyTable <- DT::renderDataTable({
    data.frame(Amount=c(1.00, 2.20, 4.15))
  })
})

shinyApp(ui = ui, server = server)

【问题讨论】：

Section 4.5
@brittenb 注意最后一句“由于用户在数据列中格式化数字很常见，我们在这个包中提供了一些简单的辅助函数（例如 formatCurrency()）来完成这些任务以一种更简单的方式，因此您不必自己编写 JavaScript 代码。”但没有给出这方面的例子。
renderDataTable 采用 DT::datatable 对象，或者可以强制转换为 DT::datatable 对象的对象。因此，您只需将data.frame 调用与DT::datatable() 包装在server 一侧，然后将其通过管道传输到formatCurrency。
啊，谢谢@brittenb

标签： r shiny dt

【解决方案1】：

阅读DT::renderDataTable上的帮助页面：

renderDataTable(expr, ...

表达式
用于创建表格小部件的表达式（通常通过 datatable()），或要传递给 datatable() 以创建表格小部件的数据对象

所以你只需先创建datatable 对象，根据需要设置格式，然后调用renderDataTable。

server <- shinyServer(function(input, output){
  dt <- datatable(data.frame(Amount=c(1.00, 2.20, 4.15))) %>% 
    formatCurrency(columns='Amount')
  output$dtoMyTable <- DT::renderDataTable({dt})
})

【讨论】：

它可以工作，但会产生警告：Warning in widgetFunc() : renderDataTable ignores ... arguments when expr yields a datatable object; see ?renderDataTable。
@Konrad 这正是它的意思。您应该将所有额外参数放在datatable() 调用中而不是外部。喜欢DT::renderDataTable({datatable(dt, options = list(dom = 't', ordering = FALSE), rownames = FALSE)}