使用DT::datatable生成表格时如何实现自动点击分页按钮自动翻页

DT底层基于jQuery DataTables库开发，可直接调用原生分页API实现自动翻页，无需手动模拟分页按钮点击事件，兼容性和稳定性更好。

完整可运行代码 #

library(DT)
data(iris)
md <- iris

DT::datatable(
  md,
  options = list(
    # 自定义每页展示行数，可根据需求调整
    pageLength = 10,
    # 注入初始化完成后执行的JS逻辑
    initComplete = JS(
      "function(settings, json) {",
      "  const table = this.api();",
      "  // 翻页间隔：单位毫秒，3000即每3秒翻一页",
      "  const pageInterval = 3000;",
      "  setInterval(() => {",
      "    const pageInfo = table.page.info();",
      "    // 最后一页则跳回第一页，否则向下翻页",
      "    pageInfo.page === pageInfo.pages - 1 ? ",
      "      table.page('first').draw('page') : ",
      "      table.page('next').draw('page');",
      "  }, pageInterval);",
      "}"
    )
  )
)

相关说明 #

• 该方案同时支持静态HTML导出和Shiny应用场景，Shiny中直接将上述代码放入renderDT()中即可正常运行。
• 自动适配手动筛选、搜索后的分页状态：每次翻页前都会实时获取最新的分页信息，筛选后总页数变化也不会出现逻辑错误。
• 若需要暂停轮播，可以额外给表格加鼠标悬停暂停、离开继续的逻辑，只需要在JS中补充mouseenter和mouseleave事件监听清除/重启定时器即可。

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