From 512ad1e30d3d3f613c8928f2440242d611d3e6b4 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 16 Jun 2010 10:42:08 -0700 Subject: [PATCH] babel: org-babel-R is better about trimming preceding and trailing newlines * contrib/babel/lisp/langs/org-babel-R.el (org-babel-R-evaluate): trimming preceding and trailing newlines of output results --- contrib/babel/lisp/langs/org-babel-R.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/babel/lisp/langs/org-babel-R.el b/contrib/babel/lisp/langs/org-babel-R.el index 6c0a380d5..513577a41 100644 --- a/contrib/babel/lisp/langs/org-babel-R.el +++ b/contrib/babel/lisp/langs/org-babel-R.el @@ -186,7 +186,7 @@ last statement in BODY, as elisp." (with-temp-buffer (insert body) (org-babel-shell-command-on-region (point-min) (point-max) "R --slave --no-save" 'current-buffer 'replace) - (buffer-string))) + (org-babel-trim (buffer-string)))) (value (let* ((tmp-file (make-temp-file "R-out-functional-results")) exit-code (stderr @@ -235,7 +235,7 @@ last statement in BODY, as elisp." (if (= (length el) 0) nil (if (string-match comint-prompt-regexp el) - (substring el (match-end 0)) + (org-babel-trim (substring el (match-end 0))) el))))) (mapconcat #'identity