如何使用DT包中的renderDataTable（）格式化數據表的列？

Question

我可以像這樣格式化數據表對象的列

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)

Answer 1

閱讀DT::renderDataTable上的幫助頁面：

renderDataTable（expr，...

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})
})