將鼠標光標更改為R Shiny中的手（指針）

Question

當用戶將鼠標懸停在數據表單元格上時如何將鼠標懸停圖標更改為指針 （手形）。我在數據表中有4列，而第4列行單元格則在鼠標懸停時顯示工具提示。 我需要在顯示工具提示時將光標圖標更改為指針。我認為這可以通過dt包選項和JS來實現，但到目前為止沒有成功，任何提示在R Shiny UI中都可以實現。

Answer 1

使用具有DT Package的rowCallback功能的CSS腳本來實現此目的。這是iris數據表的代碼：

library(shiny)
library(DT)

shinyApp(
ui = fluidPage(
DT::dataTableOutput("irisTable")
),
server = function(input, output) {

output$irisTable <- DT::renderDataTable({
  DT::datatable(datasets::iris, 
                options = list(rowCallback = JS(
                  "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
                  "var full_text = aData[1] + ','+ aData[2] + ',' + aData[3] + ','+ aData[4];",
                  "$('td:eq(5)', nRow).attr('title', full_text);", # Tool Tip
                  "$('td:eq(5)', nRow).css('cursor', 'pointer');", # Cursor icon changes to hand (pointer) on Hover
                  "}")
                )
  )

})
}
)