r - 使用 DT::datatable，如何自动“单击”页面按钮

Question

使用 DT::datatable 可以创建底部带有“页面选择按钮”的 html 表。

有什么办法可以自动点击按钮？（我想自动逐页显示数据）

data(iris)
md <- iris
DT::datatable(md)

标签： rdt

Answer 1

是你想要的吗？

library(DT)

js <- c(
  "var npages = table.page.info().pages;",
  "var i = 0;",
  "var myinterval = setInterval(function(){",
  "  if(i < npages - 1){",
  "    i = i+1;",
  "    table.page(i).draw('page');",
  "  }else{",
  "    clearInterval(myinterval)",
  "  }",
  "}, 1000);"
)

datatable(
  iris,
  callback = JS(js)
)