Russell Adams <rlad...@adamsinfoserv.com> writes: > 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.
Hi Russell, I haven't completely understood paras 1 and 3 above. Would you mind posting an example that illustrates the problem that this patch solves? Dan > > 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 _______________________________________________ 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
