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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.