R将鼠标悬停在所有表格单元格上

问题描述：

如何为所有表格单元格(而不是列名)实现鼠标悬停文本.我的数据表有3列.将鼠标悬停在第3列的单元格上时，需要显示该特定行的第1列和第2列的组合内容.我尝试探索DT包以实现相同但没有成功.桌子.

How I can achieve mouse hover text for all table cells (not for column names).I am having the datatable with 3 columns. On hover over the cell of 3rd column, need to display the combined contents of 1st and 2nd columns of that particiular row.I tried exploring DT package to achieve the same but no success.Any tips or do we have any library which supports hover for tables.

答

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

You need to use rowCallback to do this. Here is a simple example for what you want to achieve:

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将鼠标悬停在所有表格单元格上

相关推荐