基于外部列表实现DT数据表单元格条件高亮的方法

要实现高亮df_table里id列中存在于my_id_list的值，有两种实用方案：

方案一：R原生逻辑实现 #

通过添加辅助标记列，结合formatStyle完成样式设置，无需编写JavaScript：

library(DT)
library(tidyverse)

df_table <- tibble(
  id = 1:10,
  V1 = rnorm(10)
)

my_id_list <- c(4, 6, 8)

# 添加高亮标记列
df_table <- df_table %>%
  mutate(highlight = ifelse(id %in% my_id_list, 1, 0))

datatable(df_table, options = list(columnDefs = list(list(visible = FALSE, targets = 3)))) %>%
  formatStyle(
    "id",
    backgroundColor = styleInterval(c(0.5), c("white", "yellow")),
    valueColumns = "highlight" # 关联标记列判断样式
  )

方案二：JavaScript回调实现 #

直接在DT的rowCallback中编写逻辑，无需修改原始数据，更简洁灵活：

library(DT)
library(tidyverse)
library(jsonlite)

df_table <- tibble(
  id = 1:10,
  V1 = rnorm(10)
)

my_id_list <- c(4, 6, 8)

datatable(df_table, 
          options = list(
            rowCallback = JS(
              sprintf("function(row, data) {
                        var highlightIds = %s;
                        // data[0]对应id列（第一列），匹配则设置背景色
                        if (highlightIds.includes(data[0])) {
                          $('td:eq(0)', row).css('background-color', 'yellow');
                        }
                      }", 
                      toJSON(my_id_list)) # 把R列表转为JS数组
            )
          )
)

两种方案都能实现目标效果：id为4、6、8的单元格会显示黄色背景。

内容的提问来源于stack exchange，提问作者TobKel