R 闪亮数据 table 内容带有 [​​=10=] 标签

Question

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

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

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

您有相互冲突的包，每个包都有同名的函数。看来您只需要 shiny 包就可以了...

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

Answer 2

请阅读文档 ?DT::datatable（或 DT website）。 escape 参数就是你想要的。

datatable(x, escape = FALSE)