1 setwd("/media/mandy/Samsung_T1/mpicbs/2015kurs2/")
   2 files <- dir("logfiles",pattern = ".csv$", full.names = T)
   3 
   4 require(lubridate)
   5 tmp <- lapply(files,function(filename){
   6        xx <- readLines(filename)
   7        d1 <- read.table(text = xx[4:length(xx)],sep = "\t",fill = T,header=T)
   8        d2 <- read.table(text = xx[1:2],sep = "\t",fill = T,header=T)
   9        d1$subject <- as.character(d2$subject.)
  10        d1$timepoint <- as.character(d2$timepoint.)
  11        d1$datetime <- mdy_hms(d2$date.)
  12        d1$no.trials <- d2$no_trials
  13        return(d1)
  14    })
  15 
  16 table(sapply(tmp,function(x) names(x)[3]))
  17 
  18 result <- Reduce(rbind,tmp)
  19 system.time(result <- Reduce(rbind,tmp))
  20 
  21 tmp <- lapply(files,function(filename){
  22        xx <- readLines(filename)
  23        d1 <- read.table(text = xx[4:length(xx)],sep = "\t",fill = T,header=T)
  24        names(d1)[3] <- "trial"
  25        d2 <- read.table(text = xx[1:2],sep = "\t",fill = T,header=T)
  26        d1$subject <- as.character(d2$subject.)
  27        d1$timepoint <- as.character(d2$timepoint.)
  28        d1$datetime <- mdy_hms(d2$date.)
  29        d1$no.trials <- d2$no_trials
  30        return(d1)
  31    })
  32 
  33 system.time(result <- Reduce(rbind,tmp))
  34