Install stable version from CRAN
install.packages("rcrossref")
Or development version from GitHub
devtools::install_github("ropensci/rcrossref")
library("rcrossref")
Look up a citation using OpenURL
cr_citation(doi="10.1371/journal.pone.0042793")
## Calvo R, Zheng Y, Kumar S, Olgiati A, Berkman L and Mock N (2012).
## "Well-Being and Social Capital on Planet Earth: Cross-National
## Evidence from 142 Countries." _PLoS ONE_, *7*. <URL:
## http://dx.doi.org/10.1371/journal.pone.0042793>.
Or use CrossRef's DOI Content Negotiation service, where you can citations back in various formats, including apa
cr_cn(dois = "10.1371/journal.pone.0112608", format = "text", style = "apa")
## [1] "Wang, Q., & Taylor, J. E. (2014). Quantifying Human Mobility Perturbation and Resilience in Hurricane Sandy. PLoS ONE, 9(11), e112608. doi:10.1371/journal.pone.0112608"
There are a lot more styles. We include a dataset as a character vector within the package, accessible via the get_styles() function, e.g.,
get_styles()[1:5]
## [1] "academy-of-management-review"
## [2] "acm-sig-proceedings-long-author-list"
## [3] "acm-sig-proceedings"
## [4] "acm-sigchi-proceedings-extended-abstract-format"
## [5] "acm-sigchi-proceedings"
bibtex
cat(cr_cn(dois = "10.1126/science.169.3946.635", format = "bibtex"))
## @article{Frank_1970,
## doi = {10.1126/science.169.3946.635},
## url = {http://dx.doi.org/10.1126/science.169.3946.635},
## year = 1970,
## month = {aug},
## publisher = {American Association for the Advancement of Science ({AAAS})},
## volume = {169},
## number = {3946},
## pages = {635--641},
## author = {H. S. Frank},
## title = {The Structure of Ordinary Water: New data and interpretations are yielding new insights into this fascinating substance},
## journal = {Science}
## }
bibentry
cr_cn(dois = "10.6084/m9.figshare.97218", format = "bibentry")
## Boettiger; C (2012). "Regime shifts in ecology and evolution (PhD
## Dissertation)." <URL:
## http://dx.doi.org/10.6084/m9.figshare.97218>, <URL:
## http://dx.doi.org/10.6084/m9.figshare.97218>.
Citation count, using OpenURL
cr_citation_count(doi="10.1371/journal.pone.0042793")
## [1] 3
There are two functions that use an older Crossre API at http://search.labs.crossref.org/dois: cr_search() and cr_search_free(). You can of course use them, but the newer Crossref API available through various functions (cr_agency(), cr_fundref(), cr_journals(), cr_licenses(), cr_members(), cr_prefixes(), and cr_works()) is more powerful and will recieve more support going forward. The following functions (of the newer set just mentioend) all use the CrossRef API.
cr_fundref(query="NSF")
## $meta
## total_results search_terms start_index items_per_page
## 1 7 NSF 0 20
##
## $data
## Source: local data frame [7 x 6]
##
## id location
## 1 501100004190 Norway
## 2 100000179 United States
## 3 501100000930 Australia
## 4 100003187 United States
## 5 100000001 United States
## 6 100006445 United States
## 7 501100001809 China
## Variables not shown: name (chr), alt.names (chr), uri (chr), tokens (chr)
cr_agency(dois = '10.13039/100000001')
## $DOI
## [1] "10.13039/100000001"
##
## $agency
## $agency$id
## [1] "crossref"
##
## $agency$label
## [1] "CrossRef"
cr_works(filter=c(has_orcid=TRUE, from_pub_date='2004-04-04'), limit=1)
## $meta
## total_results search_terms start_index items_per_page
## 1 106345 NA 0 1
##
## $data
## Source: local data frame [1 x 21]
##
## issued score prefix container.title
## 1 2013-6-14 1 http://id.crossref.org/prefix/10.5194 Biogeosciences
## Variables not shown: reference.count (chr), deposited (chr), title (chr),
## type (chr), DOI (chr), URL (chr), source (chr), publisher (chr), indexed
## (chr), member (chr), page (chr), ISBN (chr), subject (chr), author
## (chr), issue (chr), ISSN (chr), volume (chr)
##
## $facets
## [1] NA
cr_journals(issn=c('1803-2427','2326-4225'))
## Source: local data frame [2 x 13]
##
## issued container.title deposited
## 1
## 2
## Variables not shown: title (chr), publisher (chr), indexed (chr), ISBN
## (chr), subject (chr), author (chr), issue (chr), ISSN (chr), volume
## (chr), issn (chr)
cr_licenses(query = 'elsevier')
## $meta
## total_results search_terms start_index items_per_page
## 1 2 elsevier 0 20
##
## $data
## Source: local data frame [2 x 2]
##
## URL work.count
## 1 http://creativecommons.org/licenses/by/3.0/ 1
## 2 http://www.elsevier.com/tdm/userlicense/1.0/ 130
cr_prefixes(prefixes=c('10.1016','10.1371','10.1023','10.4176','10.1093'))
## $meta
## NULL
##
## $data
## Source: local data frame [5 x 3]
##
## member name
## 1 http://id.crossref.org/member/78 Elsevier BV
## 2 http://id.crossref.org/member/340 Public Library of Science (PLoS)
## 3 http://id.crossref.org/member/297 Springer Science + Business Media
## 4 http://id.crossref.org/member/1989 Co-Action Publishing
## 5 http://id.crossref.org/member/286 Oxford University Press (OUP)
## Variables not shown: prefix (chr)
##
## $facets
## list()
cr_members(query='ecology', limit = 5)
## $meta
## total_results search_terms start_index items_per_page
## 1 13 ecology 0 5
##
## $data
## Source: local data frame [5 x 43]
##
## id primary_name
## 1 3947 Korean Association of Human Ecology
## 2 2080 The Japan Society of Tropical Ecology
## 3 2151 Ecology and Civil Engineering Society
## 4 2232 Japanese Society of Health and Human Ecology
## 5 336 Japanese Society of Microbial Ecology
## Variables not shown: location (chr), last_status_check_time (date),
## backfile.dois (chr), current.dois (chr), X.10.5934. (chr),
## coverge.resource.links.backfile (chr), coverge.funders.current (chr),
## coverge.funders.backfile (chr), coverge.references.current (chr),
## coverge.references.backfile (chr), coverge.update.policies.backfile
## (chr), coverge.resource.links.current (chr),
## coverge.update.policies.current (chr), coverge.award.numbers.current
## (chr), coverge.orcids.current (chr), coverge.orcids.backfile (chr),
## coverge.award.numbers.backfile (chr), coverge.licenses.current (chr),
## coverge.licenses.backfile (chr), flags.deposits.award.numbers.backfile
## (chr), flags.deposits (chr), flags.deposits.licenses.backfile (chr),
## flags.deposits.resource.links.backfile (chr),
## flags.deposits.licenses.current (chr), flags.deposits.orcids.current
## (chr), flags.deposits.funders.backfile (chr),
## flags.deposits.references.current (chr), flags.deposits.orcids.backfile
## (chr), flags.deposits.references.backfile (chr),
## flags.deposits.resource.links.current (chr),
## flags.deposits.award.numbers.current (chr),
## flags.deposits.update.policies.backfile (chr),
## flags.deposits.funders.current (chr),
## flags.deposits.update.policies.current (chr), flags.deposits.articles
## (chr), names (chr), tokens (chr), X.10.3759. (chr), X.10.3825. (chr),
## X.10.3861. (chr), X.10.1264. (chr)
##
## $facets
## NULL
cr_r() uses the function cr_works() internally.
cr_r()
## [1] "10.1109/plasma.2011.5992921" "10.1007/springerreference_72791"
## [3] "10.1596/1813-9450-5036" "10.4266/kjccm.2012.27.1.36"
## [5] "10.1080/03081079008935132" "10.1111/j.1467-9655.2009.01559.x"
## [7] "10.1007/978-1-4613-1917-7_4" "10.3997/2214-4609.20142958"
## [9] "10.1002/cber.19050380120" "10.2118/64617-ms"
You can pass in the number of DOIs you want back (default is 10)
cr_r(2)
## [1] "10.1021/ac60101a027" "10.1080/016502599383847"
Search by author
cr_search(query = c("renear", "palmer"), rows = 3, sort = "year")[,-6]
## doi score
## 1 http://dx.doi.org/10.1016/b978-0-12-382225-3.00329-7 0.4906596
## 2 http://dx.doi.org/10.1016/b978-0-12-411602-3.00032-9 0.4906596
## 3 http://dx.doi.org/10.1016/b978-0-12-382225-3.00299-1 0.4293271
## normalizedScore
## 1 15
## 2 15
## 3 13
## title
## 1 RADAR | Polarimetric Doppler Weather Radar
## 2 Potassium Metabolism in Chronic Kidney Disease
## 3 HYDROLOGY, FLOODS AND DROUGHTS | Palmer Drought Severity Index
## fullCitation
## 1 R.J. Doviak, R.D. Palmer, 2015, 'RADAR | Polarimetric Doppler Weather Radar', <i>Encyclopedia of Atmospheric Sciences</i>, pp. 444-454
## 2 Biff F. Palmer, 2015, 'Potassium Metabolism in Chronic Kidney Disease', <i>Chronic Renal Disease</i>, pp. 381-390
## 3 L. Nkemdirim, 2015, 'HYDROLOGY, FLOODS AND DROUGHTS | Palmer Drought Severity Index', <i>Encyclopedia of Atmospheric Sciences</i>, pp. 224-231
## year
## 1 2015
## 2 2015
## 3 2015
Search by DOI
cr_search(doi = "10.1890/10-0340.1")[,-6]
## doi score normalizedScore
## 1 http://dx.doi.org/10.1890/10-0340.1 18.58151 100
## title
## 1 The arcsine is asinine: the analysis of proportions in ecology
## fullCitation
## 1 David I. Warton, Francis K. C. Hui, 2011, 'The arcsine is asinine: the analysis of proportions in ecology', <i>Ecology</i>, vol. 92, no. 1, pp. 3-10
## year
## 1 2011
Free search
queries <- c("Piwowar sharing data PLOS one", "Priem Scientometrics 2.0 social web",
"William Gunn A Crosstalk Between Myeloma Cells",
"karthik ram Metapopulation dynamics override local limits")
cr_search_free(queries)[,-4]
## text match
## 1 Piwowar sharing data PLOS one TRUE
## 2 Priem Scientometrics 2.0 social web TRUE
## 3 William Gunn A Crosstalk Between Myeloma Cells TRUE
## 4 karthik ram Metapopulation dynamics override local limits TRUE
## doi score
## 1 http://dx.doi.org/10.1371/journal.pone.0000308 3.347281
## 2 http://dx.doi.org/10.5210/fm.v15i7.2874 3.710830
## 3 http://dx.doi.org/10.1634/stemcells.2005-0220 2.821974
## 4 http://dx.doi.org/10.1890/08-0228.1 3.967917
DOIs to PMIDs
doi2pmid("10.1016/0006-2944(75)90147-7")
## pmid doi
## 1 1 10.1016/0006-2944(75)90147-7
You can pass in more than 1 DOI
doi2pmid(c("10.1016/0006-2944(75)90147-7","10.1186/gb-2008-9-5-r89"))
## pmid doi
## 1 1 10.1016/0006-2944(75)90147-7
## 2 18507872 10.1186/gb-2008-9-5-r89
Optionally simplify result to vector
doi2pmid(c("10.1016/0006-2944(75)90147-7","10.1186/gb-2008-9-5-r89"), TRUE)
## [1] 1 18507872
PMIDs to DOIs
pmid2doi(18507872)
## pmid doi
## 1 18507872 10.1186/gb-2008-9-5-r89
Pass in more than 1 PMID
pmid2doi(c(1,2,3))
## pmid doi
## 1 1 10.1016/0006-2944(75)90147-7
## 2 2 10.1016/0006-291X(75)90482-9
## 3 3 10.1016/0006-291X(75)90498-2
Optionally simplify
pmid2doi(18507872, TRUE)
## [1] "10.1186/gb-2008-9-5-r89"