R/getDetailsXML.R

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

getDetailsXML<-function(DIR=choose.dir()){
require(parallel);require(dplyr);
require(xml2);
FLS<- list.files(DIR,recursive=T,pattern='details.xml',full.names = T);
size.of.list <- length(FLS);
cl <- makeCluster( min(size.of.list, detectCores()) );
Out<-parallel::parLapply(cl=cl,FLS,PipeFish::MVdetails) %>%
  .[!grepl("FAILURE",.)] %>%
  bind_rows()
stopCluster(cl);
Out
}