Просмотр исходного кода

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
Eric Schulte 14 лет назад
Родитель
Сommit
24bb01afc8
1 измененных файлов с 4 добавлено и 1 удалено
  1. 4 1
      lisp/ob-R.el

+ 4 - 1
lisp/ob-R.el

@@ -258,7 +258,10 @@ return the value of the last statement in BODY, as elisp."
 	(butlast
 	 (delq nil
 	       (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)
 		  (insert (mapconcat #'org-babel-chomp
 				     (list body org-babel-R-eoe-indicator)