在 R Shiny 中将鼠标光标更改为手（指针）

Question

当用户将鼠标悬停在数据表单元格上时，如何将鼠标悬停图标更改为指针（手）。我的数据表中有 4 列，第 4 列行单元格在鼠标悬停时显示工具提示。当显示工具提示时，我需要将光标图标更改为指针。我认为这可以通过 dt 包选项和 JS 来实现，但到目前为止还没有成功，有任何提示可以在R Shiny UI中实现相同的效果。

Answer 1

使用CSS 脚本和 DT 包的 rowCallback 功能来实现此目的。以下是 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
                  "}")
                )
  )

})
}
)