R中的jquery数据表条件格式化

我想实现一个条件格式化。例如

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

列更改行的背景。如何升级？现在，此代码根本不会更改行的backgound。

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开始。

@Fergoso这是实现数据库的

R包的一些特定解决方案。更多信息请参见。