将鼠标指针改为R（Shiny

Question

）如何将鼠标移动到图标上指针（手动）当用户将鼠标悬停在数据表单元格上时。我在数据表中有4列，第4列行细胞正在鼠标上方放置工具提示。我需要在显示工具提示时将指针图标更改为指针。我认为这可以通过dt包选项& JS实现，但至今尚未成功，任何提示可在R Shiny UI中达到相同效果。

Answer 1

使用CSS脚本与DT包的rowCallback功能实现this.Here是虹膜数据表代码：

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 
        "}") 
       ) 
) 

}) 
} 
)