rplos (version 0.6.4)

plos_fulltext: Get full text xml of PLOS papers given a DOI

Description

Get full text xml of PLOS papers given a DOI

Usage

plos_fulltext(doi, ...)
"print"(x, ...)

Arguments

doi

One or more DOIs

...

Curl options passed on to GET

x

Input to print method

Value

Character string of XML.

Examples

## Not run: 
# plos_fulltext(doi='10.1371/journal.pone.0086169')
# plos_fulltext(c('10.1371/journal.pone.0086169','10.1371/journal.pbio.1001845'))
# dois <- searchplos(q = "*:*", fq=list('doc_type:full', 'article_type:"Research Article"'), 
# limit=3)$data$id
# out <- plos_fulltext(dois)
# out[dois[1]]
# out[1:2]
# 
# # Extract text from the XML strings
# library("XML")
# lapply(out[2:3], function(x){
#  tmp <- xmlParse(x)
#  xpathApply(tmp, "//ref-list")
# })
# 
# # Make a text corpus
# library("tm")
# out_parsed <- lapply(out, function(x){
#  tmp <- xmlParse(x)
#  xpathApply(tmp, "//body", xmlValue)
# })
# tmcorpus <- Corpus(VectorSource(out_parsed))
# (dtm <- DocumentTermMatrix(tmcorpus))
# findFreqTerms(dtm, lowfreq = 50)
# ## End(Not run)