Re: org-babel-R export parameters

[Dan Davison <davison@stats.ox.ac.uk>]

Russell Adams <RLAdams@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                            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\"")
>
>
> _______________________________________________
> 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