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

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!