Re: Org-babel & R exporting multiple tables

[Joe Bogner <joebogner@gmail.com>]

Figured it out. Option #2 works with ob-org as long as the defaults
are set to output the results

(setq org-babel-default-header-args:org '((:results . "raw") (:exports
. "results")))

By default it looks like it's silent.



On Wed, May 22, 2013 at 5:26 PM, Joe Bogner <joebogner@gmail.com> wrote:
> I have a list of data frames that I would like to output. The number
> of frames may vary
>
> Is there a way to export multiple tables formatted? These are the
> three options I came up with. None of them work very well:
>
> Option #3 works the best, but it will append each time it's run in the
> doc, so I can't have the contents in the doc without having it
> duplicated.
>
> Option #2 would be good if I could just instruct it to render the table as HTML
>
> There was a post about 2 years ago that I attempted implement by
> adding (require 'ob-org) to my .emacs for #2 but it didn't seem to
> work (http://article.gmane.org/gmane.emacs.orgmode/29286/match=results+org+babel+ascii).
>
>
>
> * Option 1
>
> Will combine the frames
>
> #+begin_src R :session *R* :colnames yes
> frames <- list()
> frames[[1]] <- data.frame(col=c("a","b"))
> frames[[2]] <- data.frame(col2=c("a","b"))
> frames
> #+end_src
>
> #+RESULTS:
> | col | col2 |
> |-----+------|
> | a   | a    |
> | b   | b    |
>
>
>
> * Option 2
>
> It won't format on export
>
> #+begin_src R :session *R* :results output org :exports both
> frames <- list()
> frames[[1]] <- data.frame(col=c("a","b"))
> frames[[2]] <- data.frame(col2=c("a","b"))
> for(i in 1:2) {
>     print(ascii(frames[[i]]), type="org")
> cat("\n")
> }
> #+end_src
>
> #+RESULTS:
> #+BEGIN_SRC org
>  |   | col |
>  |---+-----|
>  | 1 | a   |
>  | 2 | b   |
>
> |   | col2 |
> |---+------|
> | 1 | a    |
> | 2 | b    |
> #+END_SRC
>
>
> * Option 3
>
> It will format on export but won't replace if it's run in the document
>
> #+begin_src R :session *R* :results output raw :exports both
> frames <- list()
> frames[[1]] <- data.frame(col=c("a","b"))
> frames[[2]] <- data.frame(col2=c("a","b"))
> for(i in 1:2) {
>     print(ascii(frames[[i]]), type="org")
> cat("\n")
> }
> #+end_src