r - 自定义 DataTables 如何在 Shiny 中显示缺失值

Question

这个问题在这里已经有了答案:





Show Inf in DT::datatable()

(2 个回答)


10 个月前关闭。



DataTables ，在 Shiny 中，将缺失值显示为空格。有没有办法改变它？我特别梦想着 RStudio 在其数据查看器中使用的灰色斜体 NA。出于显示目的将此类字符串注入(inject)字符列是没有问题的，但是，当然，有时这些列是数字或日期，并且仅将它们转换为显示似乎有问题。

DT 的默认缺失值的 MWE 显示:

library(DT)
library(shiny)

ui <- fluidPage(
    dataTableOutput("airquality")
)

server <- function(input, output) {
    output$airquality <- renderDataTable(airquality)
}

shinyApp(ui = ui, server = server)

Answer 1

你可以做:

library(DT)

rowCallback <- c(
    "function(row, data){",
    "  for(var i=0; i<data.length; i++){",
    "    if(data[i] === null){",
    "      $('td:eq('+i+')', row).html('NA')",
    "        .css({'color': 'rgb(151,151,151)', 'font-style': 'italic'});",
    "    }",
    "  }",
    "}"  
  )

datatable(airquality, options = list(rowCallback = JS(rowCallback)))