## ---- echo = FALSE, message = FALSE--------------------------------------
knitr::opts_chunk$set(collapse = T, comment = "#>")
library(pander)
library(knitr)
## ------------------------------------------------------------------------
head(iris)
knitr::kable(head(iris))
## ---- error = TRUE-------------------------------------------------------
library(descr, quietly = TRUE)
ct <- CrossTable(mtcars$gear, mtcars$cyl)
knitr::kable(ct)
library(tables, quietly = TRUE)
tab <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
(Sepal.Length + Sepal.Width)*(mean + sd), data=iris )
knitr::kable(tab)
## ------------------------------------------------------------------------
methods(pander)
## ---- error = TRUE-------------------------------------------------------
library(descr, quietly = TRUE)
pander(CrossTable(mtcars$gear, mtcars$cyl))
library(tables, quietly = TRUE)
tab <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
(Sepal.Length + Sepal.Width)*(mean + sd), data=iris )
pander(tab)
## ------------------------------------------------------------------------
panderOptions('knitr.auto.asis', FALSE)
pander(head(iris))
## ------------------------------------------------------------------------
panderOptions('knitr.auto.asis', TRUE)
## ------------------------------------------------------------------------
dfs <- list(mtcars[1:3, 1:4], mtcars[4:6, 1:4], mtcars[7:9, 1:4])
lapply(dfs, pander)
## ----results='asis'------------------------------------------------------
panderOptions('knitr.auto.asis', FALSE)
dfs <- list(mtcars[1:3, 1:4], mtcars[4:6, 1:4], mtcars[7:9, 1:4])
invisible(lapply(dfs, pander))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.