如何在DT :: datatable中创建自定义列（可排序）

Question

假设我的data-table以下-

    library(DT)
     d = data.frame(
      names = rownames(mtcars),
      date = as.Date('2015-03-23') + 1:32,
      time = as.POSIXct('2015-03-23 12:00:00', tz = 'UTC') + (1:32) * 5000,
      stringsAsFactors = FALSE
    )

    datatable(d, filter = 'bottom', options = list(pageLength = 5))

现在，我想通过将data-table组合为date+time+some-other-string在date_time中创建新列。此新列date_time应该只能基于date部分（而不是time部分或string部分）进行排序。我也想为date部分和time部分提供不同的颜色。

有什么方法可以实现？

任何指针都将受到高度赞赏。

Answer 1

根据第二列对第四列进行排序：

library(DT)

render <- JS(
  "function(data, type, row, meta){",
  "  if(type === 'sort' || type === 'type'){",
  "    return row[2];",
  "  } else {",
  "    return data;",
  "  }",
  "}"
)

d = data.frame(
  names = rownames(mtcars),
  date = as.Date('2015-03-23') + 1:32,
  time = as.POSIXct('2015-03-23 12:00:00', tz = 'UTC') + (1:32) * 5000,
  otherColumn = mtcars$mpg,
  stringsAsFactors = FALSE
)

datatable(d, filter = 'bottom', 
          options = list(
            pageLength = 5,
            columnDefs = list(
              list(targets = 4, render = render)
            )
          )
)

对于颜色，您可以做：

render <- JS(
  "function(data, type, row, meta){",
  "  if(type === 'sort' || type === 'type'){",
  "    return row[2];",
  "  } else if(type === 'display'){",
  "    var date = '<span style=\"color:red;\">' + row[2] + ' </span>';",
  "    var time = '<span style=\"color:blue;\">' + row[3] + ' </span>';",
  "    var other = '<span style=\"color:green;\">' + data + '</span>';",
  "    return date + time + other;",
  "  } else {",
  "    return data;",
  "  }",
  "}"
)

d = data.frame(
  names = rownames(mtcars),
  date = as.Date('2015-03-23') + 1:32,
  time = as.POSIXct('2015-03-23 12:00:00', tz = 'UTC') + (1:32) * 5000,
  otherColumn = stringi::stri_rand_strings(32, 3),
  stringsAsFactors = FALSE
)

datatable(d, filter = 'bottom', 
          options = list(
            pageLength = 5,
            columnDefs = list(
              list(targets = 4, render = render)
            )
          )
)