## Not run:
# # If you just have DOIs and don't know the publisher
# ## PLOS
# ft_get('10.1371/journal.pone.0086169')
# ## PeerJ
# ft_get('10.7717/peerj.228')
# ## eLife
# ft_get('10.7554/eLife.03032')
# ## BMC
# ft_get(c('10.1186/2049-2618-2-7', '10.1186/2193-1801-3-7'))
# ## FrontiersIn
# res <- ft_get(c('10.3389/fphar.2014.00109', '10.3389/feart.2015.00009'))
# ## Hindawi - via Entrez
# res <- ft_get(c('10.1155/2014/292109','10.1155/2014/162024','10.1155/2014/249309'))
# ## F1000Research - via Entrez
# ft_get('10.12688/f1000research.6522.1')
# ## Two different publishers via Entrez - retains publisher names
# res <- ft_get(c('10.1155/2014/292109', '10.12688/f1000research.6522.1'))
# res$hindawi
# res$f1000research
# ## Pensoft
# ft_get('10.3897/zookeys.499.8360')
# ### you'll need to specify the publisher for a DOI from a recent publication
# ft_get('10.3897/zookeys.515.9332', from = "pensoft")
# ## Copernicus
# out <- ft_get(c('10.5194/angeo-31-2157-2013', '10.5194/bg-12-4577-2015'))
# out$copernicus
# ## arXiv - only pdf, you have to pass in the from parameter
# res <- ft_get(x='cond-mat/9309029', from = "arxiv", cache=TRUE, backend="rds")
# res %>% ft_extract
# ## bioRxiv - only pdf
# res <- ft_get(x='10.1101/012476')
# res$biorxiv
# ## Karger Publisher
# ft_get('10.1159/000369331')
# ## CogentOA Publisher
# ft_get('10.1080/23311916.2014.938430')
# ## MDPI Publisher
# ft_get('10.3390/nu3010063')
# ft_get('10.3390/nu7085279')
# ft_get(c('10.3390/nu3010063', '10.3390/nu7085279')) # not working, only getting 1
#
# # If you know the publisher, give DOI and publisher
# ## by default, PLOS gives back XML
# ft_get('10.1371/journal.pone.0086169', from='plos')
# ## you can instead get json
# ft_get('10.1371/journal.pone.0086169', from='plos', plosopts=list(wt="json"))
#
# (dois <- searchplos(q="*:*", fl='id',
# fq=list('doc_type:full',"article_type:\"research article\""), limit=5)$data$id)
# ft_get(dois, from='plos')
# ft_get(c('10.7717/peerj.228','10.7717/peerj.234'), from='entrez')
#
# # elife
# ft_get('10.7554/eLife.04300', from='elife')
# ft_get(c('10.7554/eLife.04300', '10.7554/eLife.03032'), from='elife')
# ## search for elife papers via Entrez
# dois <- ft_search("elife[journal]", from = "entrez")
# ft_get(dois)
#
# # bmc
# ft_get('http://www.microbiomejournal.com/content/download/xml/2049-2618-2-7.xml', from='bmc')
# urls <- c('http://www.biomedcentral.com/content/download/xml/1471-2393-14-71.xml',
# 'http://www.springerplus.com/content/download/xml/2193-1801-3-7.xml',
# 'http://www.microbiomejournal.com/content/download/xml/2049-2618-2-7.xml')
# ft_get(urls, from='bmc')
#
# # Frontiers in Pharmacology (publisher: Frontiers)
# doi <- '10.3389/fphar.2014.00109'
# ft_get(doi, from="entrez")
#
# # Hindawi Journals
# ft_get(c('10.1155/2014/292109','10.1155/2014/162024','10.1155/2014/249309'), from='entrez')
# res <- ft_search(query='ecology', from='crossref', limit=50,
# crossrefopts = list(filter=list(has_full_text = TRUE,
# member=98,
# type='journal-article')))
#
# out <- ft_get(res$crossref$data$DOI[1:20], from='entrez')
#
# # Frontiers Publisher - Frontiers in Aging Nueroscience
# res <- ft_get("10.3389/fnagi.2014.00130", from='entrez')
# res$entrez
#
# # Search entrez, get some DOIs
# (res <- ft_search(query='ecology', from='entrez'))
# res$entrez$data$doi
# ft_get(res$entrez$data$doi[1], from='entrez')
# ft_get(res$entrez$data$doi[1:3], from='entrez')
#
# # Caching
# res <- ft_get('10.1371/journal.pone.0086169', from='plos', cache=TRUE, backend="rds")
#
# # Search entrez, and pass to ft_get()
# (res <- ft_search(query='ecology', from='entrez'))
# ft_get(res)
# ## End(Not run)
Run the code above in your browser using DataLab