根据其值更改 R 闪亮数据表的单元格颜色

Question

我正在尝试为满足特定条件的单元格着色。例如，我想为值等于数据第一行的相应列值的单元格着色。我想出了如何使用 javascript 为特定值着色，但无法弄清楚如何将条件设置为我想要的。代码如下：

library(DT)
df <- head(iris)
df %>% 
  datatable %>% 
  formatStyle(1:2, color = JS("value % 1 === 0 ? 'red' : ''"))

在此表中，突出显示的单元格是其值与数据第一行的列的值匹配的单元格。我想设置 javascript 条件，使其突出显示图像中的单元格。

Answer 1

如果你使用styleEqual 函数，它几乎可以工作，除了它还下划线参考行：

library(DT)
df <- head(iris)
ref <- df[1,]
color <- "orange"
datatable(df) %>% 
    formatStyle(1:5,
                backgroundColor = styleEqual(ref[1:5], rep(color, 5)))