|
@@ -36,6 +36,7 @@
|
|
|
(declare-function orgtbl-to-tsv "org-table" (table params))
|
|
|
(declare-function R "ext:essd-r" (&optional start-args))
|
|
|
(declare-function inferior-ess-send-input "ext:ess-inf" ())
|
|
|
+(declare-function ess-make-buffer-current "ext:ess-inf" ())
|
|
|
|
|
|
(defconst org-babel-header-arg-names:R
|
|
|
'(width height bg units pointsize antialias quality compression
|
|
@@ -151,6 +152,7 @@ This function is called by `org-babel-execute-src-block'."
|
|
|
(if rownames-p "1" "NULL")))
|
|
|
(format "%s <- %s" name (org-babel-R-quote-tsv-field value))))
|
|
|
|
|
|
+(defvar ess-ask-for-ess-directory)
|
|
|
(defun org-babel-R-initiate-session (session params)
|
|
|
"If there is not a current R process then create one."
|
|
|
(unless (string= session "none")
|
|
@@ -169,6 +171,7 @@ This function is called by `org-babel-execute-src-block'."
|
|
|
(buffer-name))))
|
|
|
(current-buffer))))))
|
|
|
|
|
|
+(defvar ess-local-process-name)
|
|
|
(defun org-babel-R-associate-session (session)
|
|
|
"Associate R code buffer with an R session.
|
|
|
Make SESSION be the inferior ESS process associated with the
|