From: Julien Barnier <julien@no-log.org>
To: emacs-orgmode@gnu.org
Subject: [PATCH] babel: add a :rownames argument to R code blocks
Date: Thu, 25 Mar 2010 00:11:57 +0100 [thread overview]
Message-ID: <87eij95n7m.fsf@z.nozav.org> (raw)
Hi,
The following simple patch add a :rownames argument to R source code
blocks in org-babel. With :rownames yes it allows to export the row
names when the result is a table.
For example :
#+BEGIN_SRC R :session :colnames yes :rownames yes
table(d$sexe,d$cuisine)
#+END_SRC
#+results:
| | Non | Oui |
|-------+-----+-----|
| Homme | 2 | 2 |
| Femme | 4 | 2 |
Thanks a lot for all your work !
Julien
---
contrib/babel/lisp/langs/org-babel-R.el | 12 +++++++-----
1 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/contrib/babel/lisp/langs/org-babel-R.el b/contrib/babel/lisp/langs/org-babel-R.el
index a8071b2..f0d79b9 100644
--- a/contrib/babel/lisp/langs/org-babel-R.el
+++ b/contrib/babel/lisp/langs/org-babel-R.el
@@ -46,6 +46,8 @@ called by `org-babel-execute-src-block'."
(vars (second processed-params))
(column-names-p (and (cdr (assoc :colnames params))
(string= "yes" (cdr (assoc :colnames params)))))
+ (row-names-p (and (cdr (assoc :rownames params))
+ (string= "yes" (cdr (assoc :rownames params)))))
(out-file (cdr (assoc :file params)))
(augmented-body
(concat
@@ -53,7 +55,7 @@ called by `org-babel-execute-src-block'."
(mapconcat ;; define any variables
(lambda (pair) (org-babel-R-assign-elisp (car pair) (cdr pair))) vars "\n")
"\n" body "\n" (if out-file "dev.off()\n" "")))
- (result (org-babel-R-evaluate session augmented-body result-type column-names-p)))
+ (result (org-babel-R-evaluate session augmented-body result-type column-names-p row-names-p)))
(or out-file result))))
(defun org-babel-prep-session:R (session params)
@@ -133,9 +135,9 @@ called by `org-babel-execute-src-block'."
(defvar org-babel-R-eoe-indicator "'org_babel_R_eoe'")
(defvar org-babel-R-eoe-output "[1] \"org_babel_R_eoe\"")
(defvar org-babel-R-wrapper-method "main <- function ()\n{\n%s\n}
-write.table(main(), file=\"%s\", sep=\"\\t\", na=\"nil\",row.names=FALSE, col.names=%s, quote=FALSE)")
+write.table(main(), file=\"%s\", sep=\"\\t\", na=\"nil\",row.names=%s, col.names=%s, quote=FALSE)")
-(defun org-babel-R-evaluate (session body result-type column-names-p)
+(defun org-babel-R-evaluate (session body result-type column-names-p row-names-p)
"Pass BODY to the R process in SESSION. If RESULT-TYPE equals
'output then return a list of the outputs of the statements in
BODY, if RESULT-TYPE equals 'value then return the value of the
@@ -153,7 +155,7 @@ last statement in BODY, as elisp."
(stderr
(with-temp-buffer
(insert (format org-babel-R-wrapper-method
- body tmp-file (if column-names-p "TRUE" "FALSE")))
+ body tmp-file (if row-names-p "TRUE" "FALSE") (if column-names-p (if row-names-p "NA" "TRUE") "FALSE")))
(setq exit-code (org-babel-shell-command-on-region
(point-min) (point-max) "R --no-save" nil 'replace (current-buffer)))
(buffer-string))))
@@ -168,7 +170,7 @@ last statement in BODY, as elisp."
(case result-type
(value
(mapconcat #'org-babel-chomp (list body
- (format "write.table(.Last.value, file=\"%s\", sep=\"\\t\", na=\"nil\",row.names=FALSE, col.names=%s, quote=FALSE)" tmp-file (if column-names-p "TRUE" "FALSE"))
+ (format "write.table(.Last.value, file=\"%s\", sep=\"\\t\", na=\"nil\",row.names=%s, col.names=%s, quote=FALSE)" tmp-file (if row-names-p "TRUE" "FALSE") (if column-names-p (if row-names-p "NA" "TRUE") "FALSE"))
org-babel-R-eoe-indicator) "\n"))
(output
(mapconcat #'org-babel-chomp (list body org-babel-R-eoe-indicator) "\n"))))
--
1.7.0.3
next reply other threads:[~2010-03-24 23:12 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-03-24 23:11 Julien Barnier [this message]
2010-03-25 13:39 ` [PATCH] babel: add a :rownames argument to R code blocks Eric Schulte
2010-03-25 15:40 ` Dan Davison
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87eij95n7m.fsf@z.nozav.org \
--to=julien@no-log.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).