Javascript 将动态鼠标悬停添加到数据表（R）中列中的所有项

我很确定我的问题已经有了答案， 但无论我多么努力地寻找，我都找不到任何在这种情况下可行的解决方案。因此，如果这被认为是微不足道的，请不要开枪

现在问题来了：

假设我们正在用Shiny呈现一个dataTable，当我将鼠标悬停在单元格上并动态显示来自底层数据集的输出时，我想获取每个单元格的id（rowID+columnID）。 我知道已经有了鼠标盖的解决方案，比如shinyBS或这里的示例：

    #server.R:
    shinyServer(function(input, output) {
  dat <- list(iris,cars) 
  output$tabset <- renderUI({
    tabs <- list()
    for(i in c(1,2)){
      id <- paste("id",i, sep="")
      tabs[[i]] <- tabPanel(title=id,DT::dataTableOutput(outputId=id)) #dynamic panels
    }
    do.call(tabsetPanel,c(tabs, id='Panel'))
  })

  lapply(1:2,function(i){
    id <- paste("id",i, sep="")
    output[[id]] <- DT::renderDataTable({
      dat[[i]]},
      extensions = c('Scroller'),
      options=list(deferRender=TRUE, dom='T<"clear">fitrS', scrollY=540, searchHighlight = TRUE,
                   scrollCollapse=TRUE, autoWidth = TRUE,
                   columnDefs = list(list(width = '60%', targets = '_all',
                                          render = JS("function(data, type, row, meta) {",
                                                      "return type === 'display' && data.length > 5 ?",
                                                      "'<span title=\"' + data + '\">' + data.substr(0, 5) + '...</span>' : data;",
                                                      "}"
                                          )))),
      callback = JS('table.page(3).draw(false);'),
      escape=FALSE, rownames=TRUE,class = 'table-condensed', server=TRUE)
      })
})

#server.R:
shinyServer（功能（输入、输出）{
dat
    #ui.R:
library(shiny)
library(DT)

ui <- fluidPage(
  uiOutput('tabset')
)