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)

\(\\\)

\(\\\)

Table 3

data(Orange)
dt <- dTable( Orange,
              sScrollY = "200px",
              bScrollCollapse = T,
              bPaginate = F,
              bJQueryUI = T,
              aoColumnDefs = list(sWidth = "5%", aTargets =  list(-1)))

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

\(\\\)

Reference