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

【问题标题】：highlight cell position on mouse hover in shiny datatable在闪亮的数据表中突出显示鼠标悬停时的单元格位置
【发布时间】：2017-12-15 19:53:17
【问题描述】：

我想创建一个闪亮的数据表，以突出显示用户鼠标悬停在其上的单元格，以突出显示该点上同一行和同一列中的单元格。它类似于此处显示的内容： 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()
                    )
      )

    })
  }
)

【问题讨论】：

标签： r shiny dt

【解决方案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))

【讨论】：

那真的很接近，如果没有其他显示，我会接受你的回答。
@Pork Chop：你知道如何在鼠标悬停在一行时显示一些文本而不是突出显示整行吗？