## Not run:
# uri = 'http://www.biomedcentral.com/content/download/xml/1471-2393-14-71.xml'
# uri = 'http://www.springerplus.com/content/download/xml/2193-1801-3-7.xml'
# uri = 'http://www.microbiomejournal.com/content/download/xml/2049-2618-2-7.xml'
# bmc_xml(uris=uri)
# bmc_xml(uris=uri, dir='~/')
# bmc_xml(uris=uri, verbose())
#
# # from using bmc_search
# out <- bmc_search(terms = 'science', limit=5)
# dat <- bmc_xml(out)
# length(dat)
# dat <- Filter(Negate(is.null), dat)
# length(dat)
# dat
#
# # curl debugging, and other parameters passed to httr::GET()
# uri = 'http://www.microbiomejournal.com/content/download/xml/2049-2618-2-7.xml'
# res <- bmc_xml(uris=uri, config=verbose())
# # res <- bmc_xml(uris=uri, config=timeout(0.1))
#
# uri1 = 'http://www.biomedcentral.com/content/download/xml/1471-2393-14-71.xml'
# uri2 = 'http://www.springerplus.com/content/download/xml/2193-1801-3-7.xml'
# uri3 = 'http://www.microbiomejournal.com/content/download/xml/2049-2618-2-7.xml'
# res <- bmc_xml(uris=list(uri1, uri2, uri3), config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab