在BS弹出框中输入表格

Question

我正在开发一个Shiny应用程序，单击一个按钮后，我需要一个表格来弹出。然后在该弹出窗口中，我需要一个使用R的剪贴板功能的按钮，以便我们可以将表直接复制到Excel文件中。

我能够为表格带来一个弹出窗口，但是背景（即原始窗口）消失了，并且还能够直接从该弹出窗口复制表格并将其粘贴到excel中。

         ui<- fluidpage (
               fluidrow(
                column(12,
                    actionButton("click1", "Click")),
                      bsModal("modalExample", " ", "click1", size = 
                               "small",actionButton('copyTable', 
                                   'Copy'),DT::dataTableOutput("table1")))
                            )
                          ))

           server<- function(input,output,session){
                        data2<- reactive({dataset})

                         tableVal<- eventReactive(input$click1,{data2()})

         output$table1<- DT::renderDataTable(DT::datatable(rownames = 
         FALSE,{
                          data2()
                   }))

         observeEvent(input$copyTable,{
           write.table(data2(),file="clipboard", row.names = F, sep = 
                                                  "\t")
         })
     }

我不希望我的原始窗口褪色并希望它保持活动状态。另外，桌子的外观也不正常。我从stackoverflow得到的这个弹出代码很少修改。

将bspopover与infobox一起使用不会产生此问题，但我无法对bspopover做同样的事情。我是R闪亮引导的新手，请帮助我。