我们怎样才能包括＆＃39; SelectALL＆＃39;和＆＃39;取消选择＆＃39;动态DT中的按钮 - R闪亮仪表板

Question

我希望选择＆＃39; SelectALL＆＃39;动态数据表顶部的复选框按钮。一旦我选中了复选框，表格中的所有行都会被选中，当我取消选中该复选框时，所有行都应该被取消选中。

我使用下面的代码预先选择动态DT中的所有行，但这不是我想要的。我希望在顶部有一个按钮 -

Server.R

library(shiny)

all_rows <- reactive({
                df <- tablefinal1()  
                  if (is.null(df)) {


return(seq_len(0))

} else { 
 return(seq_len(nrow(df)))
} 
}) 

output$table<-DT::renderDataTable({datatable(tablefinal1(),options = 
list(scrollX = TRUE ,bInfo=F,bPaginate=F,sScrollY='25vh', scrollCollapse = 
TRUE, aoColumnDefs = list(list(sClass="alignright")),buttons=c("Select 
All","Deselect 
ALL")),extensions=c("Select","Buttons"),rownames=FALSE,selection = 
list(mode='multiple',selected=all_rows()))})