[O] Calling org babel to each row in a table
I often need to transform a table or list of values into a block of text. For example, if I have a list of 4 files that I want to generate a SQL script for. After hunting around, this is the best I came up with: #+name: table | File | | a| | b| | c| | d| #+name: template #+begin_src org :results verbatim :var name=abc DROP TABLE $name CREATE TABLE $name (name varchar(100)) BULK INSERT $name FROM '\\1.1.1.1\$name.txt' ... #+end_src #+name: apply-template #+begin_src emacs-lisp :results silent :var table=() (let (result-table) (dolist (line (cdr table)) (setq result-table (cons (concat #+call: template(\ (car line) \) :results raw drawer) result-table))) (mapconcat 'identity (nreverse result-table) \n)) #+end_src #+call: apply-template(table) :results org :exports both #+RESULTS: apply-template(table):results org :exports both #+BEGIN_SRC org #+END_SRC Is there a more straightforward method to apply this type of transformation? Ideally I would skip the emacs-lisp block and use some syntax to apply a org-babel block for each row in a table. It sounded similar to this: http://thread.gmane.org/gmane.emacs.orgmode/69326/focus=69340*, *but that didn't have a full example for me to build off of Is there a more straightforward to accomplish this transformation? Thanks, Joe
Re: [O] formatting org-babel output
Eric - That is perfect. It's exactly what I was looking for. Thank you for very much! Jay - format is a good option too.I also found the scales packages scales::comma(scales::dollar(5)) [1] $55,555 In the end, the org-mode post solution feels more automatic and in the right layer - since I'm using org-mode for presentation of the R results. Thanks again Joe On Wed, May 22, 2013 at 9:12 AM, Eric Schulte schulte.e...@gmail.com wrote: Joe Bogner joebog...@gmail.com writes: I am using org-mode and babel with R for reproducible research. I would like certain numbers in the output tables to be formatted for easier reading - such as eliminating decimals and adding commas for readability. The best I came up with is to use a TBLFM line at the bottom of my results table using a function I found on the ElispCookbook on emacswiki. A simple example is below that doesn't require R to reproduce. It's a two step process currently to execute the R code in org-babel and then jump to the result table TBLFM line and Ctrl+c Ctrl+c to format the table Is there a better way to format table outputs for simple things like currency? I would be content if it's only during the org export process too You can use the recently introduced :post header argument to post-process the output of a code block. The following example demonstrates the use of this argument to apply your number-grouper function to table output. Cheers, -- Eric Schulte http://cs.unm.edu/~eschulte
[O] Org-babel R exporting multiple tables
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
Re: [O] Org-babel R exporting multiple tables
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 joebog...@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
