При наведении курсора на 4-й и 5-й ряд первого столбца и на него должны отображаться такие тексты, как:
В 4-м ряду первого столбца должно отображаться «это четвертый ряд».В 5-й строке первого столбца должно отображаться «XXXXXXabcd».
Есть ли для этого какой-либо код jquery?
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(
dataTableOutput('table_1')
),
server = function(session, input, output) {
observeEvent(input$hoveredCellInfo, {
info <- input$hoveredCellInfo
content <- as.character(table2[info$row, info$column])
})
table_example <- data.frame(A = 1:5, B = 11:15, C = LETTERS[1:5])
output$table_1 <- renderDataTable({
datatable(table_example, rownames = F)
})
}
)