在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)