require(rCharts)
dt <- dTable(
  iris,
  sPaginationType=  "full_numbers";
)
dt