r - 在 R 闪亮的 DT 表中集成操作按钮

Question

给定的 R 闪亮脚本创建一个带有一些按钮的数据表，我的要求是只保留“CSV”按钮并基于 onclick，使用 shinyBS 包中的 bsmodal 函数在弹出窗口中显示 mtcars 数据。请帮助我删除其他两个按钮并为其创建一个弹出窗口。谢谢。

library(DT)
library(shiny)
library(shinyBS)
ui <- basicPage(
h2("The mtcars data"),
DT::dataTableOutput("mytable"),
bsModal("modalExample", "Your Table", "csv", size = 
"large",dataTableOutput("irisTable")))
server <- function(input, output) {
output$mytable = DT::renderDataTable({
datatable(
  iris2,
  extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv')))})
output$irisTable = DT::renderDataTable({
datatable(
  mtcars)})
}
shinyApp(ui, server)