On Tue, Jul 1, 2014 at 11:31 AM, David L Carlson <[email protected]> wrote:
> There is a better way. First we need some data. This creates three files
> in your home directory, each with five rows:
>
> write.table(data.frame(rep("A", 5), Sys.time(), Sys.time()),
> "A.tab", sep="\t", row.names=FALSE, col.names=FALSE)
> write.table(data.frame(rep("B", 5), Sys.time(), Sys.time()),
> "B.tab", sep="\t", row.names=FALSE, col.names=FALSE)
> write.table(data.frame(rep("C", 5), Sys.time(), Sys.time()),
> "C.tab", sep="\t", row.names=FALSE, col.names=FALSE)
>
> Now to read and combine them into a single data.frame:
>
> fls <- c("A.tab", "B.tab", "C.tab")
> df.list <- lapply(fls, read.delim, header=FALSE,
> col.names=c("lpar","started","ended"),
> as.is=TRUE, na.strings='\\N',
> colClasses=c("character","POSIXct","POSIXct"))
> df.all <- do.call(rbind, df.list)
> > str(df.all)
> 'data.frame': 15 obs. of 3 variables:
> $ lpar : chr "A" "A" "A" "A" ...
> $ started: POSIXct, format: "2014-07-01 11:25:05" "2014-07-01 11:25:05"
> ...
> $ ended : POSIXct, format: "2014-07-01 11:25:05" "2014-07-01 11:25:05"
> ...
>
> -------------------------------------
> David L Carlson
>
I do like that better than my version. Mainly because it is fewer
statements. I'm rather new with R and the *apply series of functions is
"bleeding edge" for me. And I haven't the the "do.call" before either. I'm
still reading. But the way that I learn best is to try projects as I am
learning. So I get ahead of myself.
According to the Linux "time" command, your method for a single input file,
resulting in 144 output elements in the data.frame, took:
real 0m0.525s
user 0m0.441s
sys 0m0.063s
Mine:
real 0m0.523s
user 0m0.446s
sys 0m0.060s
Basically, a "wash". For a stress, I took in all 136 of my files in a
single execution. Output was 22,823 elements in the data.frame.
Yours:
real 3m32.651s
user 3m26.837s
sys 0m2.292s
Mine:
real 3m24.603s
user 3m20.225s
sys 0m0.969s
Still a wash. Of course, since I run this only once a week, on a Sunday,
the time is not too important. I actually think that your solution is a bit
more readable than mine. So long as I document what is going on.
===
I had considered combining all the files together using the R "pipe"
command to run the UNIX "cat" command, something like:
command <- paste("cat ",arguments,collapse=" ");
read.delim(pipe(command), ...
but I was trying to be "pure R" since I am a Linux bigot surrounded by
Windows weenies <grin/>.
===
Hook'em horns!
--
There is nothing more pleasant than traveling and meeting new people!
Genghis Khan
Maranatha! <><
John McKown
--
There is nothing more pleasant than traveling and meeting new people!
Genghis Khan
Maranatha! <><
John McKown
[[alternative HTML version deleted]]
______________________________________________
[email protected] 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.
