org-babel-R export parameters

[Russell Adams <RLAdams@AdamsInfoServ.Com>]

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\"")