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

Question

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

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

在此table中，突出显示的单元格是其值与数据第一行列的值匹配的单元格。我想设置 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)))

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

Changing cell color of R shiny data table dependent on its value

javascript

r

dt