- DOI for
Digital object identifier
- Unique identifier for digital objects (movies to scientific articles)
- At publication stage, each publishers has the responsability to ask for a DOI
ISO 26324:2012
DOI
Steve Vissault and Kevin Cazelles
27 octobre 2017
Digital object identifier
ISO 26324:2012
install.packages('rcrossref')
library('rcrossref') vecDOI <- c('10.1111/brv.12359','10.1649/0010-065X-68.2.343','10.1890/14-1858.1')
Bibtex
is a suitable format (supported by Mendeley) which contains all the metadata of an article.bib1 <- cr_cn(vecDOI[2], format='bibtex', style = "apa") bib1
[1] "@article{Brousseau_2014,= {10.1649/0010-065x-68.2.343},= {https://doi.org/10.1649%2F0010-065x-68.2.343},= 2014,= {jun},= {Coleopterists Society},= {68},= {2},= {343–344},= {Pierre-Marc Brousseau and Dominique Gravel and I. Tanya Handa},= {First Record In Canada {ofOnthophilus} {pluricostatusLeConte} (Coleoptera: Histeridae) and a New Mention for the Rare {SpeciesLordithon} niger(Gravenhorst) (Coleoptera: Staphylinidae)},= {The Coleopterists Bulletin}}"
Bibtex
is a suitable format (supported by Mendeley) which contains all the metadata of an article.bib1 <- cr_cn(vecDOI[1], format='bibtex', style = "apa") bib1
rdf-xml, turtle, citeproc-json, citeproc-json- ish, text, ris, bibtex (default), crossref-xml, datacite-xml,bibentry, or crossref-tdm
lsf <- lapply(vecDOI, cr_cn, format='bibentry')
lsaut <- lapply(lsf, function(x) x$author) lsaut[1]
R>> [[1]] R>> [1] "W. Daniel Kissling" "Jorge A. Ahumada" R>> [3] "Anne Bowser" "Miguel Fernandez" R>> [5] "Néstor Fernández" "Enrique Alonso Garc\\'\\ia" R>> [7] "Robert P. Guralnick" "Nick J. B. Isaac" R>> [9] "Steve Kelling" "Wouter Los" R>> [11] "Louise McRae" "Jean-Baptiste Mihoub" R>> [13] "Matthias Obst" "Monica Santamaria" R>> [15] "Andrew K. Skidmore" "Kristen J. Williams" R>> [17] "Donat Agosti" "Daniel Amariles" R>> [19] "Christos Arvanitidis" "Lucy Bastin" R>> [21] "Francesca De Leo" "Willi Egloff" R>> [23] "Jane Elith" "Donald Hobern" R>> [25] "David Martin" "Henrique M. Pereira" R>> [27] "Graziano Pesole" "Johannes Peterseil" R>> [29] "Hannu Saarenmaa" "Dmitry Schigel" R>> [31] "Dirk S. Schmeller" "Nicola Segata" R>> [33] "Eren Turak" "Paul F. Uhlir" R>> [35] "Brian Wee" "Alex R. Hardisty"
lsjnl <- lapply(lsf, function(x) x$journal) lsjnl[1]
R>> [[1]] R>> [1] "Biological Reviews"