ob-R.el: Add package name to read.table call

* lisp/ob-R.el: (ob-R-transfer-variable-table-with-header)
(ob-R-transfer-variable-table-without-header): Add package name to
call of R function `read.table'.

Thus, it now reads `utils::read.table'.  This clarifies the call as
well as avoids "could not find function" error in R with the devtools
package.  See
<https://github.com/hadley/devtools/issues/336#issuecomment-23517837>.
This commit is contained in:
Rainer M. Krug 2014-10-06 13:48:49 +02:00 committed by Aaron Ecay
parent c6c1a05894
commit 780db69cdf
1 changed files with 7 additions and 2 deletions

View File

@ -96,12 +96,15 @@ this variable.")
(when (and session (string-match "^\\*\\(.+?\\)\\*$" session))
(save-match-data (org-babel-R-initiate-session session nil)))))
;; The usage of utils::read.table() ensures that the command
;; read.table() can be found even in circumstances when the utils
;; package is not in the search path from R.
(defconst ob-R-transfer-variable-table-with-header
"%s <- local({
con <- textConnection(
%S
)
res <- read.table(
res <- utils::read.table(
con,
header = %s,
row.names = %s,
@ -112,6 +115,7 @@ this variable.")
res
})"
"R code used to transfer a table defined as a variable from org to R.
This function is used when the table contains a header.")
(defconst ob-R-transfer-variable-table-without-header
@ -119,7 +123,7 @@ This function is used when the table contains a header.")
con <- textConnection(
%S
)
res <- read.table(
res <- utils::read.table(
con,
header = %s,
row.names = %s,
@ -132,6 +136,7 @@ This function is used when the table contains a header.")
res
})"
"R code used to transfer a table defined as a variable from org to R.
This function is used when the table does not contain a header.")
(defun org-babel-expand-body:R (body params &optional graphics-file)