Skip to content

Instantly share code, notes, and snippets.

@mbacou
Last active December 17, 2015 12:28
Show Gist options
  • Save mbacou/5609531 to your computer and use it in GitHub Desktop.
Save mbacou/5609531 to your computer and use it in GitHub Desktop.
R: gfmTable()
gfmTable <- function(x, ...) {
require(ascii)
y <- capture.output(print(ascii(x, ...), type="org"))
y <- gsub("-+-", "-|-", y, fixed=T)
return(writeLines(y))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment