R Shiny: Как добавить кнопки загрузки в DT :: renderDataTable

Question

Я пытаюсь добавить кнопки загрузки ('copy', 'csv', 'excel', 'pdf') над таблицей в моем приложении R Shiny, но, похоже, renderDataTable не работает при использовании данных внутри.

output$mytable1  <- DT::renderDataTable(
        datatable(
            { plots.dfs()[[1]] },
        rownames = TRUE,
        options = list(
            fixedColumns = TRUE,
            autoWidth = TRUE,
            ordering = FALSE,
            dom = 'tB',
            buttons = c('copy', 'csv', 'excel', 'pdf')
        ),
        class = "display"
    ))

Когда я использую DT :: renderDataTable без DT :: datatable внутри, renderDataTable работает хорошо, и у меня есть все функции (фильтры, поле поиска и т. Д.), Кроме кнопок загрузки (что я пытаюсь добавить)

output$mytable1 = DT::renderDataTable({ plots.dfs()[[1]] })

Ты хоть представляешь, что я делаю неправильно?Спасибо за вашу помощь

Answer 1

Как сказал Стефан в комментарии, способ добавления кнопок следующий:

output$mytable1  <- DT::renderDataTable(
                        DT::datatable(
                            { plots.dfs()[[1]] },

                            extensions = 'Buttons',

                            options = list(
                                paging = TRUE,
                                searching = TRUE,
                                fixedColumns = TRUE,
                                autoWidth = TRUE,
                                ordering = TRUE,
                                dom = 'tB',
                                buttons = c('copy', 'csv', 'excel')
                            ),

                            class = "display"
                       ))