DataTable 突出显示空单元格

Question

我正在尝试突出显示 DataTable（包 DT）中的空单元格，以便我可以向 table 的用户展示哪些信息仍需要完成。

我尝试使用 DT::formatStyle() 函数实现此目的，然后使用辅助函数 styleInterval() 或 styleEqual() 之一，但它们似乎都没有检查空值。

有什么实现方法吗？

下面的可重现示例仅以绿色突出显示大于 1 的日期，但未以红色突出显示空日期...

start_date <- c("2020-07-01","2020-01-02","2019-10-01",NA,"2019-10-01",NA,"2019-10-01","2019-10-01")
end_date <- c(NA, "2020-12-31","2020-12-31","2020-12-31","2020-12-31","2020-12-31","2020-12-31","2020-12-31")

df <- cbind(start_date, end_date)

DT::datatable(df,
              selection = "single",
              options = list(
                scrollX = TRUE,
                scrollY = TRUE,
                lengthChange = FALSE,
                searching = FALSE,
                initComplete = JS(
                  "function(settings, json) {",
                  "$(this.api().table().container()).css({'font-size': '80%'});",
                  "$(this.api().table().header()).css({'font-size': '100%'});",
                  "}")
              ) 
) %>%
  DT::formatStyle(columns = c("start_date", "end_date"),
                  background = styleInterval(c(NULL, 1), c("red","green")))

Answer 1

library(DT)

start_date <- c("2020-07-01","2020-01-02","2019-10-01",NA,"2019-10-01",NA,"2019-10-01","2019-10-01")
end_date <- c(NA, "2020-12-31","2020-12-31","2020-12-31","2020-12-31","2020-12-31","2020-12-31","2020-12-31")

df <- cbind(start_date, end_date)

datatable(df,
          selection = "single",
          options = list(
            scrollX = TRUE,
            scrollY = TRUE,
            lengthChange = FALSE,
            searching = FALSE,
            initComplete = JS(
              "function(settings, json) {",
              "$(this.api().table().container()).css({'font-size': '80%'});",
              "$(this.api().table().header()).css({'font-size': '100%'});",
              "}")
          ) 
) %>% formatStyle(
  columns = c("start_date", "end_date"),
  background = JS('value === null ? "red" : new Date(value) > new Date("2020-01-01") ? "green" : ""'))

DataTable 突出显示空单元格

DataTable highlight empty cells

r

shiny

dt