require(rCharts)
dt <- dTable(
  iris,
  bScrollInfinite = T,
  bScrollCollapse = T,
  sScrollY = "200px",
  width = "500px"
)
dt