From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Charles C. Berry" Subject: Commit 6d2ab40 breaks table input in R Date: Wed, 23 Sep 2015 10:17:30 -0700 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; format=flowed; charset=US-ASCII Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42389) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zenfk-0000Ja-Gf for emacs-orgmode@gnu.org; Wed, 23 Sep 2015 13:17:37 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Zenfh-0003dR-Bt for emacs-orgmode@gnu.org; Wed, 23 Sep 2015 13:17:36 -0400 Received: from iport-acv5-out.ucsd.edu ([132.239.0.10]:65049) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zenfh-0003cq-3s for emacs-orgmode@gnu.org; Wed, 23 Sep 2015 13:17:33 -0400 Received: from [137.110.37.142] (unknown [137.110.37.142]) (using TLSv1.2 with cipher DHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) (Authenticated sender: ccberry@ad.ucsd.edu) by act-bufferout-b1.ucsd.edu (Postfix) with ESMTPSA id 2CC10504D for ; Wed, 23 Sep 2015 10:17:31 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org-Mode mailing list This ECM fails with an error starting with the above commit. #+NAME: numeric | 1 | 2 | 3 | | 4 | 5 | 6 | #+BEGIN_SRC R :var df=numeric df #+END_SRC Similar tests in test-ob-R.el also fail. orgtbl-to-tsv now returns a propertized string. --- Should this be fixed in org-table.el or downstream in ob-R.el? Maybe like this: diff --git a/lisp/ob-R.el b/lisp/ob-R.el index 4bd6eea..4f9fb91 100644 --- a/lisp/ob-R.el +++ b/lisp/ob-R.el @@ -239,7 +239,8 @@ This function is called by `org-babel-execute-src-block'." (min (if lengths (apply 'min lengths) 0))) ;; Ensure VALUE has an orgtbl structure (depth of at least 2). (unless (listp (car value)) (setq value (list value))) - (let ((file (orgtbl-to-tsv value '(:fmt org-babel-R-quote-tsv-field))) + (let ((file (org-no-properties + (orgtbl-to-tsv value '(:fmt org-babel-R-quote-tsv-field)))) (header (if (or (eq (nth 1 value) 'hline) colnames-p) "TRUE" "FALSE")) (row-names (if rownames-p "1" "NULL"))) Chuck