Loading Libraries

library(knitr)
library(printr)
library(rCharts)

Table 1

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

dt$show('inline', include_assets = TRUE)

\(\\\)

Table 2

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

dt$show('inline', include_assets = TRUE)