使用 JavaScript 在 DataTable 中用颜色格式化行

Question

如何修改此线程中的代码以将颜色格式应用于整行，而不仅仅是特定的单元格？

特别是这个：

changeCellColor <- function(row, col){
  c(
    "function(row, data, num, index){",
    sprintf("  if(index == %d){", row-1),
    sprintf("    $('td:eq(' + %d + ')', row)", col),
    "    .css({'background-color': 'orange'});",
    "  }",
    "}"  
  )
}
datatable(dat, 
          options = list(
            dom = "t",
            rowCallback = JS(changeCellColor(1, 2))
          )
)

谢谢，

Answer 1

给你：

changeCellColor <- function(row){
  c(
    "function(row, data, num, index){",
    sprintf("  if(index == %d){", row-1),
    "for(n = 0; n <= 4; n++) {",
    "  $('td:eq(' + n + ')', row)",
    "    .css({'background-color': 'orange'});",
    "}",
    "  }",
    "}"  
  )
}
datatable(dat, 
          options = list(
            dom = "t",
            rowCallback = JS(changeCellColor(1))
          )
)

使用 JavaScript 在 DataTable 中用颜色格式化行

Format row with color in DataTable with JavaScript

colors

shiny

dt