Shiny中的DT：仅更改单行的颜色

Question

我有一个数据集：

ID Value
102 306
41  800
101 783
105 193
myID 334

我想将其绘制为一个数据表，其中只有带有“myID”的行是橙色的，表的其余部分是蓝色的。看过helper functions 和other examples，看来我应该使用styleEqual。但是，我不知道其他行中的值是什么，它们也会动态变化。

我尝试过使用

datatable(tableData) %>%
formatStyle(0, target= 'row',color = 'black', backgroundColor = tableColour, 
                lineHeight='70%', padding = '3px 3px', fontSize = '80%') %>%
    formatStyle('ID', target = 'row', 
    backgroundColor = styleEqual(c("myID"), c('orange')))

但是，这不起作用 - 整个表是蓝色的，第二个 formatStyle 语句被忽略。如果我删除第一个 formatStyle，我的行会变成橙色，但会丢失所有其他格式。有没有办法使用 styleEqual 来定义例如c("myID", "All other IDs")，还是有其他解决方法？

Answer 1

如果您想使用DT，如果满足条件，您可以使用styleEqual() 为您的表格添加背景颜色。似乎没有 else 选项，因此您可以创建一个 JS_EVAL 类的对象（将由 styleEqual() 返回）并添加一个否定：

background <- "value == 'myID' ? 'orange' : value != 'else' ? 'blue' : ''"  
class(background) <- "JS_EVAL"

datatable(tableData) %>% formatStyle(
  'ID',
  target = 'row',
  backgroundColor = background
)

结果如下：

你也可以使用包tableHTML来实现它：

library(tableHTML)

tableData %>% 
  tableHTML(rownames = FALSE,
            widths = c(100, 100)) %>% 
  add_css_row(rows = which(tableData$ID == 'myID') + 1,
              css = list(c("background-color"),
                         c("orange"))) %>% 
  add_css_row(rows = which(tableData$ID != 'myID') + 1,
              css = list(c("background-color"),
                         c("blue")))

结果如下：

Answer 2

我可以想到两种可能的解决方法：

• 根据您的列是否等于myID，创建一个 1 或 0 的辅助列，然后使用该列设置表格样式并隐藏该列。
• 为ID 列中的所有唯一值创建一个列映射，默认为某种颜色，并仅将与myID 对应的值设置为橙色。

下面给出了第二个选项的工作示例。希望这会有所帮助！

---

df = read.table(text='ID Value
102 306
41  800
101 783
105 193
myID 334',header=T)

library(DT)

my_vals = unique(df$ID)
my_colors = ifelse(my_vals=='myID','orange','grey')

datatable(df) %>%
  formatStyle('ID', target = 'row', 
              backgroundColor = styleEqual(my_vals,my_colors))