R tableHTML中行的条件高亮显示

在tableHTML中：是否有一种基于一个条件列高亮显示完整行的方法？类似这样，但mpg、cyl和disp列中也有红细胞：

tableHTML(mtcars[1:10,1:3]) %>%
add_css_conditional_column(conditional = "contains", 
                           value = "Hornet",
                           css = list('background-color', "red"), 
                           columns = "rownames")

---

我们打算在包中包含该功能，但尚未实现。不过，这可以通过一些技巧来完成：

首先，我们为条件创建一个逻辑向量，然后创建一个

tableHTML

对象。然后，对于

tableHTML

对象中的每一列，我们可以使用函数

add\u css\u rows\u in\u column

在循环中应用样式：

库（tableHTML）
有条件的我们打算在包中包含该功能，但尚未实现。不过，这可以通过一些技巧来完成：

首先，我们为条件创建一个逻辑向量，然后创建一个
tableHTML
对象。然后，对于
tableHTML
对象中的每一列，我们可以使用函数
add\u css\u rows\u in\u column
在循环中应用样式：

库（tableHTML）
条件在最近发布的tableHTML版本（2.1.0版）中，有一个选项可以选择
logical
作为带有
add_css_conditional_column
的条件类型，如果它应用于所有列，也可以作为行条件高亮显示的代理

基本上，您为条件定义逻辑向量（就像clemens的答案一样），并选择将其应用于所有列，如下所示：

my_df <- mtcars[1:10,1:3]
conditional <- grepl("Hornet", rownames(my_df)) 

tableHTML(my_df) %>%
  add_css_conditional_column(conditional = "logical", 
                             columns = 0:ncol(my_df),
                             css = list('background-color', "red"), 
                             logical_conditions = list(conditional))

my_df在最近发布的tableHTML版本（2.1.0版）中，有一个选项可以选择
logical
作为带有
add\u css\u conditional\u column
的条件类型，如果它应用于所有列，也可以作为行条件高亮显示的代理

基本上，您为条件定义逻辑向量（就像clemens的答案一样），并选择将其应用于所有列，如下所示：

my_df <- mtcars[1:10,1:3]
conditional <- grepl("Hornet", rownames(my_df)) 

tableHTML(my_df) %>%
  add_css_conditional_column(conditional = "logical", 
                             columns = 0:ncol(my_df),
                             css = list('background-color', "red"), 
                             logical_conditions = list(conditional))

my_df我自己找到了答案。
使用
add\u css\u row
功能，可以将条件添加到
rows
参数中：

my_df <- mtcars[1:10,1:3]
tableHTML(my_df) %>%
add_css_row(css = list('background-color', 'red'), 
            rows = grep("Hornet", rownames(my_df)) + 1)

my_df%
添加css行（css=list（'background-color'，'red'），
rows=grep（“大黄蜂”，rownames（my_df））+1）

我自己找到了答案。
使用
add\u css\u row
功能，可以将条件添加到
rows
参数中：

my_df <- mtcars[1:10,1:3]
tableHTML(my_df) %>%
add_css_row(css = list('background-color', 'red'), 
            rows = grep("Hornet", rownames(my_df)) + 1)

my_df%
添加css行（css=list（'background-color'，'red'），
rows=grep（“大黄蜂”，rownames（my_df））+1）

哦，是的，更加优雅！因为我不想接受自己的答案，所以我认为这是第二个最好的解决方案哦，是的，更优雅！因为我不想接受自己的答案，所以我认为这是第二个最好的解决方案