|
@@ -40,6 +40,13 @@
|
|
|
(declare-function ess-wait-for-process "ext:ess-inf"
|
|
|
(&optional proc sec-prompt wait force-redisplay))
|
|
|
|
|
|
+;; FIXME: Temporary declaration to silence the byte-compiler
|
|
|
+(defvar user-inject-src-param)
|
|
|
+(defvar ess-eval-visibly-tmp)
|
|
|
+(defvar ess-eval-visibly)
|
|
|
+(defvar ess-inject-source)
|
|
|
+(defvar user-inject-src-param)
|
|
|
+
|
|
|
(defconst org-babel-header-args:R
|
|
|
'((width . :any)
|
|
|
(height . :any)
|
|
@@ -479,7 +486,7 @@ Insert hline if column names in output have been requested."
|
|
|
(defconst ob-session-async-R-indicator "'ob_comint_async_R_%s_%s'")
|
|
|
|
|
|
(defun ob-session-async-org-babel-R-evaluate-session
|
|
|
- (session body result-type result-params column-names-p row-names-p)
|
|
|
+ (session body result-type _ column-names-p row-names-p)
|
|
|
"Asynchronously evaluate BODY in SESSION.
|
|
|
Returns a placeholder string for insertion, to later be replaced
|
|
|
by `org-babel-comint-async-filter'."
|
|
@@ -527,12 +534,12 @@ by `org-babel-comint-async-filter'."
|
|
|
(insert "\n")
|
|
|
(insert (format ob-session-async-R-indicator
|
|
|
"end" uuid))
|
|
|
- (setq tmp ess-eval-visibly)
|
|
|
+ (setq ess-eval-visibly-tmp ess-eval-visibly)
|
|
|
(setq user-inject-src-param ess-inject-source)
|
|
|
(setq ess-eval-visibly nil)
|
|
|
- (setq ess-inject-source 'function-and-buffer)
|
|
|
+ (setq ess-inject-source 'function-and-buffer)
|
|
|
(ess-eval-buffer nil))
|
|
|
- (setq ess-eval-visibly tmp)
|
|
|
+ (setq ess-eval-visibly ess-eval-visibly-tmp)
|
|
|
(setq ess-inject-source user-inject-src-param)
|
|
|
uuid))))
|
|
|
|