Install
install.packages("rcrossref")Load
library("rcrossref")Do query
(res <- cr_works(query = "Does probability of occurrence relate to population dynamics 2014 Thuiller"))
#> $meta
#> total_results
#> 1 4841088
#> search_terms
#> 1 Does probability of occurrence relate to population dynamics 2014 Thuiller
#> start_index items_per_page
#> 1 0 20
#>
#> $data
#> Source: local data frame [20 x 25]
#>
#> issued score prefix
#> (chr) (chr) (chr)
#> 1 2014-09-23 2.9984226 http://id.crossref.org/prefix/10.1111
#> 2 2009-09-30 0.86729103 http://id.crossref.org/prefix/10.1098
#> 3 2014-08-22 0.56362265 http://id.crossref.org/prefix/10.1167
#> 4 2014-11-01 0.56362265 http://id.crossref.org/prefix/10.5465
#> 5 2014-05-08 0.56362265 http://id.crossref.org/prefix/10.1007
#> 6 2014-06-19 0.56362265 http://id.crossref.org/prefix/10.12955
#> 7 2013-10-22 0.56362265 http://id.crossref.org/prefix/10.1111
#> 8 2010-10-27 0.5530231 http://id.crossref.org/prefix/10.1002
#> 9 1992-12 0.5496428 http://id.crossref.org/prefix/10.2307
#> 10 2008-08 0.5405173 http://id.crossref.org/prefix/10.1111
#> 11 2014 0.5385329 http://id.crossref.org/prefix/10.1088
#> 12 2013 0.534714 http://id.crossref.org/prefix/10.3389
#> 13 2010-03 0.534714 http://id.crossref.org/prefix/10.1111
#> 14 2014-02-17 0.5299385 http://id.crossref.org/prefix/10.1080
#> 15 2014-12-19 0.5299385 http://id.crossref.org/prefix/10.1051
#> 16 2011-02 0.51667744 http://id.crossref.org/prefix/10.1016
#> 17 2012-02-06 0.5003196 http://id.crossref.org/prefix/10.1371
#> 18 2014-01-01 0.48656657 http://id.crossref.org/prefix/10.5465
#> 19 2014 0.48656657 http://id.crossref.org/prefix/10.1037
#> 20 1993-06 0.47112238 http://id.crossref.org/prefix/10.2307
#> Variables not shown: container.title (chr), 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), license_date (chr), license_content.version (chr),
#> license_delay.in.days (chr), license_URL (chr)
#>
#> $facets
#> NULLnotice that first row has quite high score, that's probably the one you want
Get DOI
res$data[1, "DOI"][[1]]
#> [1] "10.1111/ecog.00836"