Question

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

Answer 1

您需要使用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);",
                                            "}")
                    )
      )

    })
  }
)

希望这有帮助！

R闪亮鼠标悬停到所有表格单元格

1 个答案: