R中的jquery DataTable条件格式

Question

我想实施条件格式化。 E.g。

library(DT)

datatable(mtcars, options = list(
  fnRowCallback = JS(
    "function ( row, data, index ) {",
    "if ( data[3] > 130 ) {",
        "$(data[3]).css('background-color', '#078DC6');",
      "}",
    "else {",
    "$(data[3]).css('background-color', '#FFDE00');",
      "}",
    "}")))

在这里，我想根据disp列更改行的背景。如何升级？现在这段代码根本不会改变行的后退。

Answer 1

需要将css应用于行，而不是数据，因此您可以尝试这样的事情：

library(DT)
datatable(mtcars, options = list(
  fnRowCallback = JS(
    "function ( row, data, index ) {",
    "if ( data[2] > 130 ) {",
    "$(row).css('background-color', '#078DC6');",
    "}",
    "else {",
    "$(row).css('background-color', '#FFDE00');",
    "}",
    "}")))

此外，JS中的数组索引从0开始。