R/instLogs.R

In JARS3N/PipeFish: pKa,outlier,pO2model,etc

ReadBarcodeTimes<-function(u){
 fls<- list.files(path=u,pattern='.log')  
  dplyr::bind_rows(
  lapply(
    split( fls, fls),
    ReadBarcodeTime)
    )
}

ReadBarcodeTime<-function(x){
  data.frame(k=readLines(x) ) %>%
  filter(.,grepl(pattern="ReadCartridgeBarcode",k)) %>%
separate(.,col=k,sep=";",c("A","B","C","D","E")) %>%
(function(u){u$A}) %>%
  strptime(., "%Y-%m-%d %H:%M:%OS") %>%
  data.frame(Time=.,event=c("pre","post")) %>%
  (function(u){data.frame(pre=u$Time[u$event=="pre"],post=u$Time[u$event=="post"])}) %>%
  mutate(.,dif=as.difftime(post-pre,format="%OS"))}