Ввод таблицы в поповере БС - PullRequest
Новая
       19

Ввод таблицы в поповере БС

0 голосов
/ 06 июня 2019

Я занимаюсь разработкой приложения Shiny, в котором мне нужно всплывающее окно после нажатия кнопки.Затем внутри этого всплывающего окна мне нужна кнопка, которая использует функцию буфера обмена R, чтобы мы могли скопировать таблицу непосредственно в файл Excel.

Мне удалось вывести всплывающее окно для таблицы, но фон (т.е. оригиналwindow) исчезает, а также смог скопировать таблицу прямо из этого всплывающего окна и вставить ее в 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 блестящий и начальный, пожалуйста, помогите мне.

...