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
This commit is contained in:
Eric Schulte 2010-06-16 10:42:08 -07:00
parent f6e4790099
commit 512ad1e30d
1 changed files with 2 additions and 2 deletions

View File

@ -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