Here is how you can make a table in GFM format using knitr + ascii
render_gfm()
gfm_table <- function(x, ...) {
require(ascii)
y <- capture.output(print(ascii(x, ...), type = "org"))
# substitute + with | for table markup
#' Modified version of the ggplot2 plotmatrix function that accepts additional | |
#' variables for aesthetic mapping. | |
#' | |
#' example | |
#' data(iris) | |
#' iris.vars <- c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width") | |
#' ggpairs(data = iris, facet.vars = iris.vars, | |
#' mapping = aes(color = Species, shape = Species)) | |
ggpairs <- function (data, facet.vars = colnames(data), facet.scale = "free", |
body { | |
font-family: Helvetica, arial, sans-serif; | |
font-size: 14px; | |
line-height: 1.6; | |
padding-top: 10px; | |
padding-bottom: 10px; | |
background-color: white; | |
padding: 30px; } | |
body > *:first-child { |
Here is how you can make a table in GFM format using knitr + ascii
render_gfm()
gfm_table <- function(x, ...) {
require(ascii)
y <- capture.output(print(ascii(x, ...), type = "org"))
# substitute + with | for table markup