如何确保行颜色更新时，R闪亮的DT数据表排序/筛选？

library(DT)

# 创建数据表
data <- data.frame(
  Name = c("John", "Alice", "Bob"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

datatable(data, options = list(
  rowCallback = JS(
    "function(row, data) {
      // 根据特定条件更新行颜色
      if (data[2] > 30) {
        $(row).addClass('highlight');
      }
    }"
  )
))

datatable(data, options = list(
  rowCallback = JS(
    "function(row, data) {
      // 根据特定条件更新行颜色
      if (data[2] > 30) {
        $(row).addClass('highlight');
      }
    }"
  ),
  order = list(list(2, 'desc')),  # 按照第2列（年龄）降序排序
  initComplete = JS(
    "function(settings, json) {
      // 设置初始筛选条件为年龄大于等于30
      this.api().column(2).search('>=30').draw();
    }"
  )
))