all <- download_metadata("", by="all")
nature <- sapply(all, function(x) length(grep("Nature", x$publisher))>0)
science <- sapply(all, function(x) length(grep("^Science$", x$publisher))>0)
s <- treebase:::get_study( all[nature] )
s <- treebase:::get_study(all[science])Run the code above in your browser using DataLab