R 数据表的按钮扩展

我正在尝试向数据表中添加按钮，如“复制”、“excel”、“pdf”、“打印”和“csv”，但运行代码后，我只得到“复制”、“csv”、“pdf”和“打印”，这些按钮不起作用。请问我做错了什么？我有最新版本的闪亮。代码如下：

 output$Tab<-renderDataTable(
        server=FALSE,
        data.frame(
          "People"=people,
          "Industries"=industries,
          "Schools"=schools,
         "Hospitals"=hospitals),
        extensions=c('Buttons','AutoFill','ColReorder','KeyTable','Responsive'),options=list(dom='Bfrtip',buttons=list(
          'copy','pdf','csv','excel','print'),autoFill=TRUE,colReorder=TRUE,keys=TRUE)

      )

扩展和选项是datatable的参数，而不是renderDataTable。请参阅DataTables扩展中的示例。您只需将data.frame、选项和扩展包装到datatable中，代码就可以正常工作了

但是，单独构建datatable，然后在渲染中调用对象可能更具可读性

此外，根据的文档，建议您使用renderDT而不是renderDataTable，以避免与中同名的函数发生冲突

我可能会这样做：

library(DT)

my_table <- DT::datatable(
    data.frame(
        "People"=people,
        "Industries"=industries,
        "Schools"=schools,
        "Hospitals"=hospitals),
    extensions=c('Buttons','AutoFill','ColReorder','KeyTable','Responsive'),
    options=list(dom='Bfrtip',
                 buttons=list('copy','pdf','csv','excel','print'),
                 autoFill=TRUE,
                 colReorder=TRUE,
                 keys=TRUE)
)

output$Tab<-renderDT(
    server=FALSE,
    my_table
)