Client for 'Citoid'

Client for 'Citoid' (< https://www.mediawiki.org/wiki/Citoid>), an API for getting citations for various scholarly work identifiers found on 'Wikipedia'.

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.

Stable version

install.packages("rcitoid")

Development version

devtools::install_github("ropenscilabs/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\":\"6MJT5KS8\",\"version\":0,\"itemType\":\"webpage\",\"url\":\"https://www.emeraldinsight.com/action/captchaChallenge?redirectUrl=https%3A%2F%2Fwww.emeraldinsight.com%2Fdoi%2Fabs%2F10.1108%2FJD-12-2013-0166&\",\"title\":\"EmeraldInsight\",\"accessDate\":\"2019-02-07\",\"websiteTitle\":\"www.emeraldinsight.com\",\"DOI\":\"10.1108/jd-12-2013-0166\",\"source\":[\"Zotero\"]}]"
#> attr(,"type")
#> [1] "json"

get citation data

DOI

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

PMID

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

PMCID

cit_oid("PMC4679344")
#> [[1]]
#> [[1]]$key
#> [1] "TCAHDCFP"
#> 
#> [[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] "744303838"
#> 
...

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 33
#>    key   version itemType tags  title ISSN  journalAbbrevia…
#>    <chr>   <int> <chr>    <lis> <chr> <lis> <chr>           
#>  1 23YF…       0 journal… <lis… Enha… <chr… Mucosal Immunol 
#>  2 QJ6Z…       0 journal… <lis… Shar… <chr… Mol. Biol. Evol.
#>  3 VEBC…       0 journal… <dat… Resp… <chr… Front Plant Sci 
#>  4 IBDH…       0 journal… <dat… A mi… <chr… Integr Zool     
#>  5 WPYN…       0 journal… <lis… ESMO… <NUL… <NA>            
#>  6 6R5T…       0 journal… <lis… Effi… <chr… J Orthop Surg R…
#>  7 GU4E…       0 journal… <lis… Iden… <chr… J Hematol Oncol 
#>  8 <NA>       NA book     <NUL… Agro… <NUL… <NA>            
#>  9 NFGJ…       0 journal… <dat… Anti… <chr… <NA>            
#> 10 J7FD…       0 journal… <dat… The … <chr… Biol Cybern     
#> 11 ACWN…       0 webpage  <lis… Bahm… <NUL… <NA>            
#> 12 8G39…       0 confere… <dat… Desi… <NUL… <NA>            
#> 13 EVQU…       0 confere… <dat… Traf… <NUL… <NA>            
#> # … with 26 more variables: publicationTitle <chr>, date <chr>,
#> #   abstractNote <chr>, DOI <chr>, extra <chr>, libraryCatalog <chr>,
#> #   url <chr>, accessDate <chr>, author <list>, PMID <chr>, source <list>,
#> #   pages <chr>, volume <chr>, shortTitle <chr>, PMCID <chr>,
#> #   language <chr>, issue <chr>, oclc <chr>, ISBN <list>, edition <chr>,
#> #   place <chr>, numPages <chr>, contributor <list>, websiteTitle <chr>,
#> #   proceedingsTitle <chr>, conferenceName <chr>