Zeilen in Datatable bei übereinstimmenden Suchkriterien hervorheben

Question

Gibt es eine Möglichkeit, eine Zeile anhand der Suchkriterien in einer Datentabelle in R Shiny ?? zu markieren?

Bei Verwendung der Datentabelle erhalten wir oben die Suchleiste, die die Zeilen entsprechend filtert. Ich möchte den Teil in der Zeile markieren, der den Suchkriterien entspricht.

Vielen Dank.

Answer 1

Wie Datatable Hervorhebung in R zu tun. Die glänzende Implementierung sollte geradlinig sein.

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'))) 

Siehe hier: R Studio DT Explanation

EDIT:

Kleine glänzendes Beispiel

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") 
) 
)