Изменить указатель мыши на ручку (указатель) в R Shiny

Question

Как я могу изменить значок мыши на указатель (рука), когда пользователь наводил на ячейки таблицы данных. У меня есть 4 столбца в строке данных и в строке 4-го столбца Ячейки - это инструмент для наложения мышью. Мне нужно изменить значок курсора на указатель, когда отображается подсказка инструмента. Я думаю, что это может быть достигнуто с помощью опций пакета dt & JS, но успеха пока нет. Любые советы для достижения этого в R Shiny UI.

Answer 1

Используется CSS Script с rowCallback особенностью DT Пакет для достижения this.Here код для радужной оболочки DataTable:

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

}) 
} 
)