Nothing
## ---- 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))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.