使用DT::datatable，如何自动'click'页面按钮

Question

使用DT::datatable可以创建htmltable和'page select button at'底

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

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

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)
)

使用DT::datatable，如何自动'click'页面按钮

Using DT::datatable, how to 'click' the page button automatically

r

dt