获取从 Dt 表中选择的行闪亮

Question

我们都知道有一个内置函数可以从 DT 表中选择行，如下所示。 现在，每当用户单击任何列的任何行时，都会打印行号。 但这不应该发生。 相反，只有当他仅单击特定列的行时，才应打印行号。 这可能吗

output$tab <- renderDT({
datatable(iris, selection = 'single',escape = F)
})

observerEvent(input$tab_rows_selected{
print("Clicked")
})

Answer 1

是的，您可以使用事件cell_clicked ：

output$tab <- renderDT({
datatable(iris, selection = 'single',escape = F)
})

observerEvent(input$tab_cell_clicked{
specific_col_index <- c(1, 3)
if (input$tab_cell_clicked$col %in% specific_col_index) {
print("Clicked")
}
})