使用 fnRowCallback 自定义 DT

Question

我尝试使用 fnRowCallback 参数为数据表中的整行着色，效果有效，但其他 DT 函数不再有效。这是一个简单的例子：

  names <- c("a","b","c","d")
    days <- c(10,5,2,1)

    dat <- data.frame(name=rep(names,days),date=as.Date((Sys.Date()-sum(days)+1):Sys.Date(),origin="1970-01-01"),value=rep(days,days),value2=(rep(days*2,days)))

    datatable(dat,options=list(
    fnRowCallback = JS('function(row,data, iDisplayIndex, iDisplayIndexFull){
    var d = data[2];
    d = new Date(d);
    c = new Date(+new Date - 12096e5);
    if (d > c)
    $(row).css("background-color", "blue");
    }'),
    rowCallback = JS(
    'function(row, data) {
    if (parseFloat(data[4]) > parseFloat(data[3]))
    $("td:eq(4)", row).css("background-color", "green");
    }')
)) %>% formatCurrency(c("value","value2"))

fnRowCallback 和rowCallback 都只会产生fnRowCallback 的效果，而忽略formatCurrency。如果您注释掉 fnRowCallback formatCurrency 将与 rowCallback 参数一起正常工作。

这可能是 DT 包的问题，但由于我对 javascript 数据表库不太熟悉，因此我的代码中可能存在问题或我缺少启用的选项。 .

Answer 1

fnRowCallback 是 Datatable v1.10 rowCallback 的 Datatable v1.9 版本（信息 here）。您实际上在代码中设置了两次 rowCallback，这可能是导致问题的原因。

尝试将所有代码放入 rowCallback:

datatable(dat,options=list(
    fnRowCallback = JS('function(row,data, iDisplayIndex, iDisplayIndexFull){

    }'),
    rowCallback = JS(
    'function(row, data) {
    if (parseFloat(data[4]) > parseFloat(data[3]))
        $("td:eq(4)", row).css("background-color", "green");

    var d = data[2];
    d = new Date(d);
    c = new Date(+new Date - 12096e5);
    if (d > c)
        $(row).css("background-color", "blue");

    }')
)) %>% formatCurrency(c("value","value2"))

rowCallback 函数在呈现之前应用于每一行 (docs here)。

使用 fnRowCallback 自定义 DT

Customizing DT with fnRowCallback

javascript

jquery

r

datatables

dt