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

install.packages("rcitoid")

Development version

remotes::install_github("ropensci/rcitoid")

Load the package

library("rcitoid")

get citation data

use underscore method to get text

cit_oid_("10.1108/jd-12-2013-0166")
#> [[1]]
#> [1] "[{\"key\":\"6GCZU4NS\",\"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-09-17\",\"shortTitle\":\"Setting our bibliographic references free\",\"author\":[[\"Silvio\",\"Peroni\"],[\"Alexander\",\"Dutton\"],[\"Tanya\",\"Gray\"],[\"David\",\"Shotton\"]],\"source\":[\"Zotero\",\"Zotero\"]}]"
#> attr(,"type")
#> [1] "json"

get citation data

DOI

cit_oid("10.1108/jd-12-2013-0166")
#> [[1]]
#> [[1]]$key
#> [1] "YFQK7UCZ"
#> 
#> [[1]]$version
#> [1] 0
#> 
#> [[1]]$itemType
#> [1] "journalArticle"
#> 
...

PMID

cit_oid(30446726)
#> [[1]]
#> [[1]]$key
#> [1] "R4A72DW5"
#> 
#> [[1]]$version
#> [1] 0
#> 
#> [[1]]$itemType
#> [1] "journalArticle"
#> 
...

PMCID

cit_oid("PMC4679344")
#> [[1]]
#> [[1]]$key
#> [1] "VSJ5LSKX"
#> 
#> [[1]]$version
#> [1] 0
#> 
#> [[1]]$itemType
#> [1] "journalArticle"
#> 
...

ISBN

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.

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 <- cit_oid_(id = c(pmid, pmcid, isbn, dois))
tbl_df(bind_rows(lapply(res, jsonlite::fromJSON)))
#> # A tibble: 13 x 34
#>    key   version itemType tags  title websiteTitle url   abstractNote date 
#>    <chr>   <int> <chr>    <lis> <chr> <chr>        <chr> <chr>        <chr>
#>  1 TDF5…       0 webpage  <lis… Enha… Mucosal imm… http… "BCG, the o… 2019…
#>  2 R2LH…       0 journal… <df[… Shar… <NA>         http… "Sex determ… 06 0…
#>  3 YEQJ…       0 journal… <df[… Resp… <NA>         http… "With the i… 2018 
#>  4 H4CX…       0 journal… <df[… Mixe… <NA>         http… "Medicinal … 2019…
#>  5 NSWJ…       0 journal… <lis… ESMO… <NA>         http… "Supplement… 2016…
#>  6 V3N3…       0 journal… <lis… Effi… <NA>         http… "Background… 2019…
#>  7 NHLX…       0 journal… <lis… Iden… <NA>         http… "Background… 2019…
#>  8 <NA>       NA book     <NUL… Agro… <NA>         http… "Providing … <NA> 
#>  9 MBYX…       0 journal… <lis… Anti… <NA>         http…  <NA>        2011…
#> 10 LTT6…       0 journal… <lis… The … <NA>         http…  <NA>        2006…
#> 11 RJB8…       0 book     <lis… The … <NA>         <NA>   <NA>        2006 
#> 12 U4EQ…       0 confere… <df[… Desi… <NA>         http… "Testabilit… 2009…
#> 13 RDTJ…       0 confere… <lis… Traf… <NA>         http…  <NA>        2017…
#> # … with 25 more variables: extra <chr>, language <chr>, accessDate <chr>,
#> #   author <list>, PMID <chr>, PMCID <chr>, DOI <chr>, source <list>,
#> #   pages <chr>, ISSN <list>, journalAbbreviation <chr>,
#> #   publicationTitle <chr>, volume <chr>, issue <chr>, libraryCatalog <chr>,
#> #   shortTitle <chr>, oclc <chr>, ISBN <list>, place <chr>, numPages <chr>,
#> #   contributor <list>, publisher <chr>, editor <list>, proceedingsTitle <chr>,
#> #   conferenceName <chr>

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.