R Shiny：如何在DT :: renderDataTable中添加分页

Question

我正在尝试在我的R Shiny应用程序中添加分页，搜索框和选择器，但它现在不起作用（我尝试了分页= TRUE和搜索= TRUE，在选项中，你可以看到下面但它没有'工作）。你知道我应该添加什么吗？

output$mytable1  <- DT::renderDataTable(
                            DT::datatable(
                                { plots.dfs()[[1]] },
                                caption = htmltools::tags$caption(
                                    style = 'caption-side: bottom; text-align: center;',
                                    'Table 2: ', htmltools::em('This is a simple caption for the table.')
                                ),
                                extensions = 'Buttons',

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

                                class = "display"
                           ))

我已经添加了我现在拥有的表格的屏幕截图以及预期的表格。 感谢您的帮助] 1

Answer 1

您可以修改dom参数，例如：

DT::datatable(
  { mtcars },
  caption = htmltools::tags$caption(
    style = 'caption-side: bottom; text-align: center;',
    'Table 2: ', htmltools::em('This is a simple caption for the table.')
  ),
  extensions = 'Buttons',

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

要添加页面长度，还要在字符串中添加l。希望这有帮助！