ob-R: clean up extra prompts in session output

Thanks to Charles C. Berry for pointing this issue out

* lisp/ob-R.el (org-babel-R-evaluate): clean up extra prompts in
  session output
This commit is contained in:
Eric Schulte 2010-07-27 12:16:32 -06:00
parent bb8086ffbb
commit 24bb01afc8
1 changed files with 4 additions and 1 deletions

View File

@ -258,7 +258,10 @@ return the value of the last statement in BODY, as elisp."
(butlast (butlast
(delq nil (delq nil
(mapcar (mapcar
#'identity (lambda (line) ;; cleanup extra prompts left in output
(if (string-match "^\\([ >]+\\)\\[[0-9]+\\]" line)
(substring line (match-end 1))
line))
(org-babel-comint-with-output (session org-babel-R-eoe-output) (org-babel-comint-with-output (session org-babel-R-eoe-output)
(insert (mapconcat #'org-babel-chomp (insert (mapconcat #'org-babel-chomp
(list body org-babel-R-eoe-indicator) (list body org-babel-R-eoe-indicator)