full_text_urls(doi)
Filter(Negate(is.na), res)
## Not run:
# full_text_urls(doi='10.1371/journal.pone.0086169')
# full_text_urls(doi='10.1371/journal.pbio.1001845')
# full_text_urls(doi=c('10.1371/journal.pone.0086169','10.1371/journal.pbio.1001845'))
#
# # contains some annotation DOIs
# dois <- searchplos(q = "*:*", fq='doc_type:full', limit=20)$data$id
# full_text_urls(dois)
#
# # contains no annotation DOIs
# dois <- searchplos(q = "*:*", fq=list('doc_type:full', 'article_type:"Research Article"'),
# limit=20)$data$id
# full_text_urls(dois)
# ## End(Not run)
Run the code above in your browser using DataLab