From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dan Davison Subject: Re: org-babel-R export parameters Date: Mon, 07 Jun 2010 00:27:46 +0100 Message-ID: <87k4qbyc5p.fsf@stats.ox.ac.uk> References: <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=44496 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OLPGc-0007aq-05 for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 19:28:34 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OLPGa-0003It-J0 for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 19:28:33 -0400 Received: from markov.stats.ox.ac.uk ([163.1.210.1]:47643) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OLPGa-0003IR-Bv for emacs-orgmode@gnu.org; Sun, 06 Jun 2010 19:28:32 -0400 Received: from blackcap.stats.ox.ac.uk (blackcap.stats [163.1.210.5]) by markov.stats.ox.ac.uk (8.13.6/8.13.6) with ESMTP id o56NSTNa005883 for ; Mon, 7 Jun 2010 00:28:29 +0100 (BST) In-Reply-To: <20100606225802.GC13859@thinkpad.adamsinfoserv.com> (Russell Adams's message of "Sun, 6 Jun 2010 17:58:02 -0500") 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 Russell Adams 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