Browse Source

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
Eric Schulte 15 years ago
parent
commit
512ad1e30d
1 changed files with 2 additions and 2 deletions
  1. 2 2
      contrib/babel/lisp/langs/org-babel-R.el

+ 2 - 2
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