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| pvec2<-function(v, FUN, ..., mc.set.seed = TRUE, mc.silent = FALSE, | |
| mc.cores = getOption("mc.cores", 2L), mc.cleanup = TRUE | |
| ,combineFUN = `c` | |
| ) { | |
| ### AUTHOR: [email protected] | |
| ### PURPOSE: an improvement(?) on parallel:pvec which | |
| ### (1) does not require v to be a vector, rather, v must | |
| ### implement `[`, `length`. Thus, i.e. BioConductor List (including | |
| ### GRangesList) is supported. | |
| ### (2) uses `parallel:splitIndices` to compute indices into v |
| #' 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