| 
					
				 | 
			
			
				@@ -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) 
			 |