"Charles C. Berry" <[email protected]> writes: > On Mon, 23 Jun 2014, Rainer M Krug wrote: > >> One more question concerning the variable transfer of tables: >> >> ,---- >> | (let ((file (orgtbl-to-tsv value '(:fmt org-babel-R-quote-tsv-field))) >> | (header (if (or (eq (nth 1 value) 'hline) colnames-p) >> | "TRUE" "FALSE")) >> | (row-names (if rownames-p "1" "NULL"))) >> | (if (= max min) >> | (format "%s <- local({ >> | con <- textConnection( >> | %S >> | ) >> | res <- read.table( >> | con, >> | header = %s, >> | row.names = %s, >> | sep = \"\\t\", >> | as.is = TRUE >> | ) >> | close(con) >> | res >> | })" name file header row-names) >> | (format "%s <- local({ >> | con <- textConnection( >> | %S >> | ) >> | res <- read.table( >> | con, >> | header = %s, >> | row.names = %s, >> | sep = \"\\t\", >> | as.is = TRUE, >> | fill = TRUE, >> | col.names = paste(\"V\", seq_len(%d), sep =\"\") >> | ) >> | close(con) >> | res >> | })" name file header row-names max)))) >> `---- >> >> It seems that the two variable transfer routines only differ slightly: >> >> 1. routine: =header= is present (TRUE) and defined in table when passed >> as =colnames= while >> >> 2. routine: =header= is not present (FALSE) and =colnames= is generated >> as V1 .. Vn >> >> This generation is actually not needed as this is the R default value >> which is used when =colnames= is not supplied. >> >> Also: I do not undestand why the argument =fill= is TRUE in the second >> routine. From R: >> >> ,---- >> | fill: logical. If ‘TRUE’ then in case the rows have unequal length, >> | blank fields are implicitly added. See ‘Details’. >> `---- >> >> If I understands tables in org correctly, this is not needed as the rows >> always have equal length? >> >> so if I am not mistaken the following lines could be deleted: >> >> ,---- >> | row.names = %s, >> | sep = \"\\t\", >> | as.is = TRUE, >> | - fill = TRUE, >> | - col.names = paste(\"V\", seq_len(%d), sep =\"\") >> `---- >> >> Or am I missing something here? > > You need not pass a table - this > > #+BEGIN_SRC R :var x='(1 2 3)(4 5))
I always forget that there are other objects wich can be passed from org
to R.
>
> will produce a data.frame with two rows with is.na(x[2,2]) being TRUE.
>
>
> Re col.names, from help("read.table")
>
> The number of data columns is determined by looking at the first
> five lines of input (or the whole file if it has less than five
> lines), or from the length of 'col.names' if it is specified and
> is longer. This could conceivably be wrong if 'fill' or
> 'blank.lines.skip' are true, so specify 'col.names' if necessary
> (as in the 'Examples').
>
>
> This block
>
> #+BEGIN_SRC R :var x=(append (make-vector 10 '(1 2)) '((1 2 3)))
> x
> #+END_SRC
>
> makes an 11 by 3 data.frame with all(is.na(x[,1:10]))
>
> but taking away the col.names arg will cause it to make a 12 by 2
> data.frame with x[12,1]==3 and is.na(x[12,2]).
>
> so leave the col.names as is, I think.
I will - promised.
>
> Without fill, read.table will throw an error in that block
This is true for these cases - I was only thinking about tables which
can be passed to R
Thanks,
Rainer
>
> Chuck
>
> [rest deleted]
>
--
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology,
UCT), Dipl. Phys. (Germany)
Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa
Tel : +33 - (0)9 53 10 27 44
Cell: +33 - (0)6 85 62 59 98
Fax : +33 - (0)9 58 10 27 44
Fax (D): +49 - (0)3 21 21 25 22 44
email: [email protected]
Skype: RMkrug
PGP: 0x0F52F982
pgpLPf4Hgjoer.pgp
Description: PGP signature
