require(rCharts)

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