diff --git a/lisp/ob-R.el b/lisp/ob-R.el index ea3303193..4584173a2 100644 --- a/lisp/ob-R.el +++ b/lisp/ob-R.el @@ -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)