jquery - R shiny mouseover to all table cells

Question

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.

Answer 1

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);",
                                            "}")
                    )
      )

    })
  }
)

Hope this helps!