閃亮的數據表工具提示/彈出框不適用於分頁

Question

我想在數據表的每一行上添加一個彈出框。 使用 [here] 提供的解決方案（ Shiny 數據表中的工具提示或彈出框用於行名稱？ ）（我不懂 JavaScript，所以我盲目復制粘貼代碼）我設法在表格的第一頁上添加了彈出框.

問題是桌子很大，所以我不得不把它分成更多頁。 當我選擇表格的另一頁時，彈出框停止工作。

這是我正在使用的代碼

output$view_data<-DT::renderDataTable({
    DT::datatable(Extraction(),rownames = FALSE,escape = FALSE,
        callback = JS(paste("
            var tips =",paste0("[",paste0("'",unlist(DrugFilter()),"'",collapse=","),"]"),",
            firstColumn = $('#view_data tr td:first-child');                                    
            for (var i = 0; i < tips.length; i++) 
                {$(firstColumn[i]).attr('title', tips[i]);}"
        ))
     ))
}, server = FALSE)

如何修改代碼以使彈出窗口在所有表格頁面上工作，而不僅僅是在第一個頁面上工作？

Answer 1

我會嘗試使用rowCallback ：

rowCallback <- c(
  "function(row, data, displayNum, displayIndex){",
  sprintf("  var tips = [%s];", 
          paste0("'",unlist(DrugFilter()),"'",collapse=",")),
  "  for(var i = 0; i < tips.length; i++){",
  "    if(displayIndex== i){",
  "      $('td:eq(0)',row).attr('title', tips[i]);",
  "    }",
  "  }",
  "}"
)

datatable(Extraction(), 
          rownames = FALSE, 
          escape = FALSE, 
          options = list(
            rowCallback = JS(rowCallback)
          )
)