R souris shiny à toutes les cellules de la table

Comment puis-je obtenir un texte de survol de la souris pour toutes les cellules du tableau (pas pour les noms de colonnes). Survolez la cellule de la 3ème colonne, vous devez afficher le contenu combiné des 1ère et 2ème colonnes de cette rangée particulière. J’ai essayé d’explorer le package DT pour obtenir le même résultat, mais sans succès. les tables.

Pour cela, vous devez utiliser rowCallback . Voici un exemple simple de ce que vous voulez réaliser:

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

J'espère que cela t'aides!