babel: R: allow forcing of colnames without hline

This commit is contained in:
Dan Davison 2010-04-30 12:36:58 -04:00
parent 7f3e64bfb4
commit 10a07a644b
1 changed files with 1 additions and 1 deletions

View File

@ -121,7 +121,7 @@ called by `org-babel-execute-src-block'."
(insert "\n")) (insert "\n"))
(format "%s <- read.table(\"%s\", header=%s, row.names=%s, sep=\"\\t\", as.is=TRUE)" (format "%s <- read.table(\"%s\", header=%s, row.names=%s, sep=\"\\t\", as.is=TRUE)"
name transition-file name transition-file
(if (and (eq (second value) 'hline) colnames-p) "TRUE" "FALSE") (if (or (eq (second value) 'hline) colnames-p) "TRUE" "FALSE")
(if rownames-p "1" "NULL"))) (if rownames-p "1" "NULL")))
(format "%s <- %s" name (org-babel-R-quote-tsv-field value)))) (format "%s <- %s" name (org-babel-R-quote-tsv-field value))))