將鼠標指針改爲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 
        "}") 
       ) 
) 

}) 
} 
)