ツールヒント光沢のあるrenderDataTableを1つの列名につける

Question

このテーブルは光沢があり、「種」という列名に対して1つのヒントのみを追加したい、つまり他の列にはツールヒントがありません。私はすべてのツールヒントを追加する必要がありますが、特定の列の内容をどのように設定できるか分かりません。

shinyApp(
    ui = fluidPage(
    fluidRow(
     column(12, 
      dataTableOutput('table') 
    ) 
    ) 
), 
    server = function(input, output) { 
    output$table <- renderDataTable(iris, options = list(
     pageLength = 5, 
     initComplete = I("function(settings, json) { 
             $('th').each(function(){this.setAttribute('title', 'TEST');}); 
             $('th').tooltip(); 

            }"))) 

          } 
    ) 

Answer 1

私は4番目の列名、つまり「種別」のみについてツールチップを取得するようにコードを修正しました。

library(shiny) 

shinyApp(
    ui = fluidPage(
    fluidRow(
     column(12, 
      dataTableOutput('table') 
    ) 
    ) 
), 
    server = function(input, output) { 
    output$table <- renderDataTable(iris, options = list(
     pageLength = 5, 
     initComplete = I("function(settings, json) { 
         $('th:eq(4)').each(function(){this.setAttribute('title', 'TEST');}); 
         $('th').tooltip(); 

    }"))) 

    } 
    )