R testo lucido del mouseover per le colonne della tabella

Question

Come creare mouseover text per i nomi delle colonne nella visualizzazione della tabella dei dati lucidi R. Sto provando a fornire del testo agli utenti per capire i nomi delle colonne. Ho controllato anche il pacchetto DT e non sono riuscito a trovare una soluzione. Posso creare etichette per i nomi di colonne e visualizzarle tutte quando un utente controlla una casella, questo richiede molto spazio e non lo voglio. Qualche consiglio?

Answer 1

di espandere il mio commento di cui sopra, ecco un esempio che mostra quello che volevo dire utilizzando le title attributi:

library(DT) 
sketch = htmltools::withTags(table(
    class = 'display', 
    thead(
    tr(
     th('', title = 'Row Names'), 
     th('Sepal.Length', title = 'The Sepal Length'), 
     th('Sepal.Width', title = 'The Sepal Width'), 
     th('Petal.Length', title = 'The Petal Length'), 
     th('Petal.Width', title = 'The Petal Width'), 
     th('Species', title = 'Iris Species') 
    ) 
) 
)) 
datatable(iris, container = sketch) 

E qui è un altro approccio con JavaScript (jQuery) per aggiungere gli attributi title:

library(DT) 
datatable(iris, callback = JS(" 
var tips = ['Row Names', 'The Sepal Length', 'The Sepal Width', 
      'The Petal Length', 'The Petal Width'], 
    header = table.columns().header(); 
for (var i = 0; i < tips.length; i++) { 
    $(header[i]).attr('title', tips[i]); 
} 
")) 

Answer 2

È possibile eseguire tale operazione utilizzando options nella funzione renderDataTable() in Lucido. Dalla pagina documentation di DT in Shiny, qualcosa del genere dovrebbe funzionare.

renderDataTable(head(iris, 20), options = list(
    initComplete = JS(
    "function(settings, json) {", 
     "$(this.api().table().header()).on({ 
      mouseenter: function() { 
       //stuff to do on mouse enter 
      }, 
      mouseleave: function() { 
       //stuff to do on mouse leave 
      } 
     });", 
    "}") 
))