有没有办法根据R Shiny数据表中的搜索条件突出显示一行?
在使用数据表时,我们得到顶部的搜索栏,相应地过滤行。我想突出显示与搜索条件匹配的行中的部分。
谢谢。
答案 0 :(得分:0)
如何在R中进行数据表突出显示。闪亮的实现应该是直截了当的。
library(DT)
mtcars2 = head(mtcars[, 1:5], 20)
mtcars2$model = rownames(mtcars2)
rownames(mtcars2) = NULL
options(DT.options = list(pageLength = 5))
# global search
datatable(mtcars2, options = list(searchHighlight = TRUE, search = list(search = 'da')))
编辑:
小巧的例子
<强> server.R:强>
shinyServer(function(input, output) {
output$testme <- renderDataTable({
mtcars2 = head(mtcars[, 1:5], 20)
mtcars2$model = rownames(mtcars2)
rownames(mtcars2) = NULL
options(DT.options = list(pageLength = 5))
# global search
datatable(mtcars2, options = list(searchHighlight = TRUE, search =
list(search = 'da')))
})
})
<强> ui.R:强>
library(shiny)
library(DT)
shinyUI(fluidPage(
DT::dataTableOutput(outputId = "testme")
)
)