rcitoid

Client for the Citoid service https://www.mediawiki.org/wiki/Citoid

docs: https://en.wikipedia.org/api/rest_v1/#!/Citation/getCitation

There are two functions, both of which do the same things, except:

• cit_oid(): parses text
• cit_oid_(): does not parse text, you can parse later yourself

Even with cit_oid() though, you get a list of lists, and you may want to parse it to a data.frame. See an example below.

Install

Stable version

r install.packages("rcitoid")

Development version

r remotes::install_github("ropensci/rcitoid")

Load the package

r library("rcitoid")

get citation data

use underscore method to get text

```r citoid("10.1108/jd-12-2013-0166")

> [[1]]

> [1] "[{\"key\":\"6FVPATDA\",\"version\":0,\"itemType\":\"journalArticle\",\"tags\":[],\"publicationTitle\":\"Journal of Documentation\",\"journalAbbreviation\":\"Journal of Documentation\",\"volume\":\"71\",\"issue\":\"2\",\"language\":\"en\",\"ISSN\":[\"0022-0418\"],\"date\":\"2015-03-09\",\"pages\":\"253–277\",\"DOI\":\"10.1108/JD-12-2013-0166\",\"url\":\"https://www.emerald.com/insight/content/doi/10.1108/JD-12-2013-0166/full/html\",\"title\":\"Setting our bibliographic references free: towards open citation data\",\"libraryCatalog\":\"DOI.org (Crossref)\",\"accessDate\":\"2020-11-26\",\"shortTitle\":\"Setting our bibliographic references free\",\"author\":[[\"Silvio\",\"Peroni\"],[\"Alexander\",\"Dutton\"],[\"Tanya\",\"Gray\"],[\"David\",\"Shotton\"]],\"source\":[\"Zotero\"]}]"

> attr(,"type")

> [1] "json"

```

get citation data

DOI

```r cit_oid("10.1108/jd-12-2013-0166")

> [[1]]

> [[1]]$key

> [1] "HCXFCV8F"

>

> [[1]]$version

> [1] 0

>

> [[1]]$itemType

> [1] "journalArticle"

>

... ```

PMID

```r cit_oid(30446726)

> [[1]]

> [[1]]$key

> [1] "JDITNMEK"

>

> [[1]]$version

> [1] 0

>

> [[1]]$itemType

> [1] "journalArticle"

>

... ```

PMCID

```r cit_oid("PMC4679344")

> [[1]]

> [[1]]$key

> [1] "SY68KLQD"

>

> [[1]]$version

> [1] 0

>

> [[1]]$itemType

> [1] "journalArticle"

>

... ```

ISBN

```r cit_oid(1439895619)

> [[1]]

> [[1]]$itemType

> [1] "book"

>

> [[1]]$title

> [1] "Agroecology : the ecology of sustainable food systems"

>

> [[1]]$oclc

> [1] "908080219"

>

... ```

parse to data.frame

because the resulting data is nested and can have missing data slots, it's probably easier to get raw text and manipulate from there.

```r library(dplyr)

pmid <- c(30446726, 30722046, 30687373, 30688010) pmcid <- c("PMC4679344", "PMC6347797", "PMC6347793") isbn <- 1439895619 dois <- c("10.1109/jsac.2011.110806", "10.1007/s00422-006-0078-4", "10.5040/9781474219624-0044", "10.1109/icemi.2009.5274826", "10.1109/wispnet.2017.8299996") res <- citoid(id = c(pmid, pmcid, isbn, dois)) tbldf(bindrows(lapply(res, jsonlite::fromJSON)))

> # A tibble: 13 x 33

> key version itemType tags title pages ISSN journalAbbrevia…

>

> 1 P4CD… 0 journal… <df[… Enha… 555–… <chr… Mucosal Immunol

> 2 QR7H… 0 journal… <df[… Shar… 1113… <chr… Mol Biol Evol

> 3 SLTV… 0 journal… <df[… Resp… 1981 <chr… Front Plant Sci

> 4 CWF3… 0 journal… <df[… Mixe… 604–… <chr… Integr Zool

> 5 YG5T… 0 journal… <lis… ESMO… 2–30 <chr… Int J Gynecol C…

> 6 6W95… 0 journal… <chr… J Orthop Surg R…

> 7 R3ZP… 0 journal… <chr… J Hematol Oncol

> 8 NA book

> 9 G24A… 0 journal… <lis… Anti… 1392… <chr… IEEE J. Select.…

> 10 SXSZ… 0 journal… <lis… The … 193–… <chr… Biol Cybern

> 11 LG4G… 0 book

> 12 778X… 0 confere…

> 13 P5X4… 0 confere…

> # … with 25 more variables: publicationTitle , volume , issue ,

> # date , abstractNote , DOI , extra ,

> # libraryCatalog , url , accessDate , author ,

> # PMID , PMCID , source , shortTitle , oclc ,

> # ISBN , place , numPages , contributor ,

> # language , publisher , editor , proceedingsTitle ,

> # conferenceName

```

Meta

• Please report any issues or bugs
• License: MIT
• Get citation information for rcitoid in R doing citation(package = 'rcitoid')
• Please note that this package is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.