突出显示鼠标悬停在闪亮数据表中的单元格位置

Question

我想创建一个闪亮的数据表，用于突出显示用户鼠标所依赖的单元格，以突出显示该点上同一行和列中的单元格。它与此处显示的内容类似： https://datatables.net/examples/api/highlight.html

但是在这个例子中，整个列都突出显示，我希望它停止在鼠标所在的单元格上。

我已经看到了类似问题的其他问题，例如：R shiny mouseover text for table columns。但我不知道它是否已过时，但该代码对我不起作用，它只显示一个正常的数据表。

以下面的代码为例，我该如何实现？

library(shiny)

shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("mtcarsTable")
  ),
  server = function(input, output) {

    output$mtcarsTable <- DT::renderDataTable({
      DT::datatable(datasets::mtcars[,1:3], 
                    options = list(rowCallback = JS()
                    )
      )

    })
  }
)

Answer 1

我知道如何在悬停

上突出显示一行

#rm(list = ls())
library(shiny)
library(DT)

ui <- basicPage(
  tags$style(HTML('table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {background-color: pink !important;}')),
  mainPanel(DT::dataTableOutput('mytable'))
)

server <- function(input, output,session) {

  output$mytable = DT::renderDataTable(    
    datatable(mtcars)
  ) 
}
runApp(list(ui = ui, server = server))