all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* org-babel-R export parameters
@ 2010-06-06 22:58 Russell Adams
  2010-06-06 23:27 ` Dan Davison
  0 siblings, 1 reply; 12+ messages in thread
From: Russell Adams @ 2010-06-06 22:58 UTC (permalink / raw)
  To: emacs-orgmode

I needed the ability to view what parameters were sent to plot in
R. Turns out that you can't query some things like the active filename
in R, so I went back to org.

This patch takes each parameter and converts it to a variable in R,
including the filename (org_babel_filename).

My intent is to parse the filename in R to create a dev.copy() to a
pdf while creating a PNG. Ideally then I can see the png inline, and
export to latex with the PDF.

Thanks.

------------------------------------------------------------------
Russell Adams                            RLAdams@AdamsInfoServ.com

PGP Key ID:     0x1160DCB3           http://www.adamsinfoserv.com/

Fingerprint:    1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3




$ diff -Narub org-babel-R.el.orig org-babel-R.el
--- org-babel-R.el.orig           2010-06-06 17:42:46.000000000 -0500
+++ org-babel-R.el                2010-06-06 17:53:59.000000000 -0500
@@ -161,7 +161,12 @@
                      (if (member (car pair) allowed-args)
                                       (format ",%s=%s" (substring (symbol-name (car pair)) 1) (cdr pair)) ""))
                                                          params ""))
-    (format "%s(%s=\"%s\"%s%s%s)\n" device filearg out-file args (if extra-args "," "") (or extra-args ""))))
+    (setq babel-vars (mapconcat (lambda (pair)
+                                  (if (member (car pair) allowed-args)
+                                      (format "org_babel_%s=\"%s\"\n" (substring (symbol-name (car pair)) 1) (cdr pair)) ""))
+                                params ""))
+    (setq babel-vars (concat babel-vars (format "org_babel_filename=\"%s\"\n" out-file)))
+    (format "%s(%s=\"%s\"%s%s%s)\n%s\n" device filearg out-file args (if extra-args "," "") (or extra-args "") babel-vars)))
 
 (defvar org-babel-R-eoe-indicator "'org_babel_R_eoe'")
 (defvar org-babel-R-eoe-output "[1] \"org_babel_R_eoe\"")

^ permalink raw reply	[flat|nested] 12+ messages in thread

end of thread, other threads:[~2010-06-07 22:28 UTC | newest]

Thread overview: 12+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-06-06 22:58 org-babel-R export parameters Russell Adams
2010-06-06 23:27 ` Dan Davison
2010-06-07  8:04   ` Russell Adams
2010-06-07  9:03     ` Dan Davison
2010-06-07 10:31       ` Russell Adams
2010-06-07 18:40         ` Erik Iverson
2010-06-07 18:51           ` Russell Adams
2010-06-07 19:44             ` Eric Schulte
2010-06-07 19:56               ` Erik Iverson
2010-06-07 22:28                 ` Eric Schulte
2010-06-07 20:21               ` Russell Adams
2010-06-07 13:36     ` Erik Iverson

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.