From mboxrd@z Thu Jan 1 00:00:00 1970 From: Russell Adams Subject: org-babel-R export parameters Date: Sun, 6 Jun 2010 17:58:02 -0500 Message-ID: <20100606225802.GC13859@thinkpad.adamsinfoserv.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=46864 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OLOnO-000277-KQ for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 18:58:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OLOnN-0000WH-7a for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 18:58:22 -0400 Received: from squirtle.drak.net ([72.52.144.201]:56294) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OLOnN-0000Vt-20 for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 18:58:21 -0400 Received: from 206.180.155.43.adsl.hal-pc.org ([206.180.155.43] helo=localhost) by squirtle.drak.net with esmtpsa (TLSv1:AES128-SHA:128) (Exim 4.69) (envelope-from ) id 1OLOn0-0006q9-TF for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 17:57:59 -0500 Content-Disposition: inline List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org 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\"")