Install from CRAN and load
install.packages("solr")
library("solr")
Define URL
url <- 'http://api.plos.org/search'
Do query
out <- solr_facet(base=url, q='doc_type:full', fq='cross_published_journal_key:PLoSONE', rows=0,
facet.limit=-1, facet.range='pagecount', facet.range.start=0,
facet.range.end=1000, facet.mincount=1, facet.range.gap=1, facet.sort='pagecount+desc')
Result
head(out$facet_ranges$pagecount)
X1 X2
1 1 295
2 2 29
3 3 158
4 4 822
5 5 2519
6 6 5705