Javascript R:Datatable行的鼠标悬停文本

在datatable display中将鼠标悬停在行记录上时，是否有方法显示鼠标悬停文本？在研究了有关StackOverflow的一些类似问题之后，我发现了两个示例代码，一个用于显示列单元格的悬停文本，另一个用于在鼠标悬停时高亮显示整行

显示列单元格悬停文本的示例代码：

我还发现了另一个代码，它在悬停时高亮显示整行：

鼠标悬停时高亮显示行的示例代码

在我的例子中，我希望鼠标悬停在datatable的一行上时显示文本。我该怎么做呢？

给你：

library(shiny)
library(DT)

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

        output$table <- DT::renderDataTable({
            DT::datatable(iris, rownames = FALSE,
                          options = list(rowCallback = JS(
            "function(row, data) {",
            "var full_text = 'This rows values are :' + data[0] + ',' + data[1] + '...'",
            "$('td', row).attr('title', full_text);",
            "}")))
        })
    }
)

你能看一看吗。这是一个问题，在这里寻找你精彩答案的延伸。。

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

library(shiny)
library(DT)

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

        output$table <- DT::renderDataTable({
            DT::datatable(iris, rownames = FALSE,
                          options = list(rowCallback = JS(
            "function(row, data) {",
            "var full_text = 'This rows values are :' + data[0] + ',' + data[1] + '...'",
            "$('td', row).attr('title', full_text);",
            "}")))
        })
    }
)