R 모든 테이블 셀에 반짝이는 마우스

Question

어떻게 모든 테이블 셀 (열 이름 제외)에 마우스를 가져 가면 텍스트를 얻을 수 있습니까? 3 열이있는 데이터 테이블이 있습니다. 3 번째 열의 셀 위로 마우스를 가져 가면 해당 행의 첫 번째 열과 두 번째 열의 결합 된 내용을 표시해야합니다. DT 패키지를 탐색하여 동일한 성공을 거두지는 못했습니다. 도움말이나 마우스를 가리키는 라이브러리가 있습니까? 테이블.

Answer 1

이렇게하려면 rowCallback을 사용해야합니다. 다음은 달성하고자하는 간단한 예입니다.

library(shiny) 

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

    output$mtcarsTable <- DT::renderDataTable({ 
     DT::datatable(datasets::mtcars[,1:3], 
        options = list(rowCallback = JS(
         "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {", 
         "var full_text = aData[0] + ','+ aData[1] + ',' + aData[2] + ','+ aData[3];", 
         "$('td:eq(3)', nRow).attr('title', full_text);", 
              "}") 
        ) 
    ) 

    }) 
    } 
) 

희망이 있습니다.