突出显示闪亮 DT 表中的预定义词 [不通过搜索突出显示] [关闭]

Question

我正在创建一个闪亮的应用程序，我想在闪亮的 DT 表中突出显示某些预定义的单词。我知道 DT 中的 搜索高亮 功能。例如：

datatable(mtcars2, options = list(searchHighlight = TRUE, search = list(search = 'da')))

我想像前面的示例一样突出显示，但不是来自搜索。例如，在 mtcars 数据中，我想突出显示词 'Merc'、'Fiat'、'Honda'，而不在 搜索 中提供的表。表格一出现，就会突出显示单词，而不是整个单元格。

有没有办法做到这一点？

Answer 1

您可以为此使用tableHTML：

library(tableHTML)

mtcars 数据集在整个答案中使用：

使用tableHTML() 函数创建一个tableHTML 对象。然后应用条件 css，如果列（在本例中为行名，即索引 0）contains 特定单词。应用的 css 只是使用黄色突出显示背景：

mtcars %>% 
  tableHTML() %>% 
  add_css_conditional_column(columns = 0,
                             conditional = "contains",
                             value = "Toyota",
                             css = list(c("background-color"),
                                        c("yellow")))

结果是：

如果要匹配的单词很多，可以创建单词向量：

words <- c("Merc", "Fiat", "Honda")

创建基本的tableHTML 对象：

tableHTML <- mtcars %>% 
  tableHTML() 

并使用循环逐字应用 css：

for (word in words) {
  tableHTML <- tableHTML %>% 
    add_css_conditional_column(columns = 0,
                               conditional = "contains",
                               value = word,
                               css = list(c("background-color"),
                                          c("yellow")))
}

结果是：

如果您只想突出显示某个子字符串，您可以修改数据并在子字符串周围包含 span 并在那里应用 css。

library(magrittr) # for the %<>% pipe

rownames(mtcars) %<>% 
  stringr::str_replace_all(c('Merc' = '<span style="background-color:yellow">Merc</span>',
                  'Fiat' = '<span style="background-color:yellow">Fiat</span>',
                  'Honda' = '<span style="background-color:yellow">Honda</span>'))


mtcars %>% 
  tableHTML()

结果是：