R help - Jun 2008 - Hyper-elegant code to get a text file, transpose it, and write it

Of course this is a trivial task:

text.in <- readLines(file.in)
matrix.in <- strsplit(text.in, "[ \t]+")
# matrix.out <- transpose matrix.in
# loop over the lines of matrix.out creating text.out
writeLines(text.out, file.out)

What is the _most elegant_ way to write the transposition of 
matrix.in (that is _not_ a matrix) and the pasting of the
lines of matrix.out?

Alberto Monteiro

PS: this is not a homework, this is evangelism to a Visual Basic
programmer :-)

Alberto Monteiro wrote:
> Of course this is a trivial task:
> 
> text.in <- readLines(file.in)
> matrix.in <- strsplit(text.in, "[ \t]+")
You probably want

write.table(t(read.table(file.in)), file = file.out, row.names = FALSE, 
col.names = FALSE)

Uwe Ligges

> # matrix.out <- transpose matrix.in
> # loop over the lines of matrix.out creating text.out
> writeLines(text.out, file.out)
> 
> What is the _most elegant_ way to write the transposition of 
> matrix.in (that is _not_ a matrix) and the pasting of the
> lines of matrix.out?
> 
> Alberto Monteiro
> 
> PS: this is not a homework, this is evangelism to a Visual Basic
> programmer :-)
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.