jquery - R Shiny 的鼠标悬停在所有表格单元格上

如何为所有表格单元格实现鼠标悬停文本(不适用于列名)。我有 3 列的数据表。悬停在第 3 列的单元格上时，需要显示该特定行的第 1 列和第 2 列的组合内容。我尝试探索 DT 包以实现相同但没有成功。任何提示或我们是否有任何支持悬停的库表。

最佳答案

您需要使用 rowCallback 来执行此操作。这是您要实现的目标的简单示例:

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(
                      "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
                      "var full_text = aData[0] + ','+ aData[1] + ',' + aData[2] + ','+ aData[3];",
                      "$('td:eq(3)', nRow).attr('title', full_text);",
                                            "}")
                    )
      )

    })
  }
)

希望这可以帮助!

关于jquery - R Shiny 的鼠标悬停在所有表格单元格上，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/40224925/