獲取從 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")
}
})