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 rlad...@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\"") _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode