DT包Buttons扩展：如何指定下载全部数据或仅当前可见页数据？

当然可以实现！DT的Buttons扩展完全支持自定义下载行为，刚好能满足你要的两种需求——下载数据表的全部数据，或者仅下载当前可见页面的数据。

先给你看一个完整的示例代码，直接就能运行测试：

library(DT)

datatable(
  iris,
  extensions = 'Buttons',
  options = list(
    dom = 'Bfrtip',
    # 开启分页，方便测试当前页面下载功能
    pageLength = 10,
    buttons = list(
      # 保留基础的复制、打印按钮
      'copy', 'print',
      # 自定义CSV全量下载按钮
      list(
        extend = 'csv',
        text = 'CSV（全量数据）',
        exportOptions = list(
          modifier = list(page = 'all')
        )
      ),
      # 自定义CSV当前页面下载按钮
      list(
        extend = 'csv',
        text = 'CSV（当前页面）',
        exportOptions = list(
          modifier = list(page = 'current')
        )
      ),
      # 同理给Excel也设置两种模式
      list(
        extend = 'excel',
        text = 'Excel（全量数据）',
        exportOptions = list(modifier = list(page = 'all'))
      ),
      list(
        extend = 'excel',
        text = 'Excel（当前页面）',
        exportOptions = list(modifier = list(page = 'current'))
      )
    )
  )
)

关键知识点说明： #

• 要实现自定义下载行为，我们需要用list(extend = "按钮类型", text = "自定义显示文本", exportOptions = ...)来创建定制化按钮，而不是直接用字符串（比如'csv'）
• exportOptions里的modifier参数是核心：
  • page = 'all'：指定下载数据表的全部数据，不管当前分页显示的是什么
  • page = 'current'：仅下载当前分页中可见的数据
• 你可以根据需求调整按钮组合：比如保留默认的全量下载按钮，只新增当前页面的按钮；或者把所有按钮都改成明确标注“全量”/“当前页”的形式，避免用户混淆。

举个简化版的例子，只在默认按钮基础上新增当前页下载选项：

datatable(
  iris,
  extensions = 'Buttons',
  options = list(
    dom = 'Bfrtip',
    pageLength = 10,
    buttons = c(
      'copy', 'csv', 'excel', 'pdf', 'print',
      # 新增CSV当前页下载
      list(
        extend = 'csv',
        text = 'CSV（当前页）',
        exportOptions = list(modifier = list(page = 'current'))
      ),
      # 新增Excel当前页下载
      list(
        extend = 'excel',
        text = 'Excel（当前页）',
        exportOptions = list(modifier = list(page = 'current'))
      )
    )
  )
)

这样用户既能用默认的全量下载，也能选择只下载当前看到的数据，非常灵活。

内容的提问来源于stack exchange，提问作者Vlad