带有 html 标签的 R Shiny 数据表内容

Question

我有一个数据表，其中 a 列是一个字符字段。我需要使列中的一些字符串以不同的颜色显示(只是开始，我最终需要搜索并替换具有不同颜色的多个字符串)。我试图通过以下方式进行但未成功。

下面我试图将 html 标签放在列值中，但我不确定如何让浏览器在显示数据表时将这些标签视为 html 标签。有什么想法吗？

library(shiny)
library(DT)
x<-data.table(a=c("srinivas asfsis asdfsadf","vassri asdf asdfasdf","csdasdsriasfasf"))
x$a<-as.data.table(sapply(x$a,function(x)gsub("sri",'<strong style="color:red">sri</strong>',x)))
shinyApp( ui = dataTableOutput("table1"), 
          server = function(input, output) {
               output$table1<-renderDataTable({ datatable(x) }) 
    }
)

Answer 1

请阅读文档 ?DT::datatable(或 DT website)。 escape 参数就是您想要的。

datatable(x, escape = FALSE)