data(example_references_metagear)
someRefs <- effort_initialize(example_references_metagear)
dir.create("metagear_downloads")
PDFs_collect(aDataFrame = someRefs, DOIcolumn = "DOI",
FileNamecolumn = "STUDY_ID", directory = "metagear_downloads")
Run the code above in your browser using DataLab