Skip to content

Commit 4e705f5

Browse files
njahn82njahn82
committed
re-submission CRAN
2 parents d80828d + c61bc36 commit 4e705f5

2 files changed

Lines changed: 77 additions & 70 deletions

File tree

‎README.Rmd‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,7 @@ knitr::opts_chunk$set(
1717
[![rstudio mirror downloads](http://cranlogs.r-pkg.org/badges/roadoi)](https://github.com/metacran/cranlogs.app)
1818
[![review](https://ropensci.org/badges/115_status.svg)](https://github.com/ropensci/onboarding/issues/115)
1919

20+
2021
roadoi interacts with the [oaDOI API](http://oadoi.org/), a simple interface which links DOIs
2122
and open access versions of scholarly works. oaDOI powers [unpaywall](http://unpaywall.org/).
2223

‎README.md‎

Lines changed: 76 additions & 70 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,7 @@
1010
[![rstudio mirror downloads](http://cranlogs.r-pkg.org/badges/roadoi)](https://github.com/metacran/cranlogs.app)
1111
[![review](https://ropensci.org/badges/115_status.svg)](https://github.com/ropensci/onboarding/issues/115)
1212

13+
1314
roadoi interacts with the [oaDOI API](http://oadoi.org/), a simple interface which links DOIs
1415
and open access versions of scholarly works. oaDOI powers [unpaywall](http://unpaywall.org/).
1516

@@ -219,28 +220,28 @@ random_dois <- rcrossref::cr_r(sample = 100) %>%
219220
.$data
220221
random_dois
221222
#> # A tibble: 100 x 35
222-
#> alternative.id
223-
#> <chr>
224-
#> 1
225-
#> 2 5088422
226-
#> 3
227-
#> 4 10.1111/j.1478-1913.1971.tb03042.x
228-
#> 5
229-
#> 6 10.1021/j100789a044
230-
#> 7 10.1080/00107530.1989.10746306
231-
#> 8
232-
#> 9 2758
233-
#> 10 10.1201/9781420063561.ch8,10.1201/9781420063561
223+
#> alternative.id
224+
#> <chr>
225+
#> 1 10.1080/02533950903561353
226+
#> 2 10.1177/000348940601700416
227+
#> 3
228+
#> 4
229+
#> 5
230+
#> 6 1532-429X-14-S1-P37
231+
#> 7 10.1176/ajp.153.3.355
232+
#> 8
233+
#> 9 10.4014/jmb.1511.11068
234+
#> 10 10.1142/S0219030310000637
234235
#> # ... with 90 more rows, and 34 more variables: container.title <chr>,
235236
#> # created <chr>, deposited <chr>, DOI <chr>, funder <list>,
236-
#> # indexed <chr>, ISBN <chr>, ISSN <chr>, issued <chr>, link <list>,
237-
#> # member <chr>, page <chr>, prefix <chr>, publisher <chr>,
237+
#> # indexed <chr>, ISBN <chr>, ISSN <chr>, issue <chr>, issued <chr>,
238+
#> # link <list>, member <chr>, page <chr>, prefix <chr>, publisher <chr>,
238239
#> # reference.count <chr>, score <chr>, source <chr>, subject <chr>,
239-
#> # title <chr>, type <chr>, URL <chr>, assertion <list>, author <list>,
240-
#> # `clinical-trial-number` <list>, issue <chr>, volume <chr>,
241-
#> # license_date <chr>, license_URL <chr>, license_delay.in.days <chr>,
242-
#> # license_content.version <chr>, update.policy <chr>, subtitle <chr>,
243-
#> # abstract <chr>, archive <chr>
240+
#> # title <chr>, type <chr>, URL <chr>, volume <chr>, assertion <list>,
241+
#> # author <list>, `clinical-trial-number` <list>, license_date <chr>,
242+
#> # license_URL <chr>, license_delay.in.days <chr>,
243+
#> # license_content.version <chr>, subtitle <chr>, update.policy <chr>,
244+
#> # archive <chr>, abstract <chr>
244245
```
245246

246247
Let's see when these random publications were published
@@ -254,20 +255,20 @@ random_dois %>%
254255
group_by(issued) %>%
255256
summarize(pubs = n()) %>%
256257
arrange(desc(pubs))
257-
#> # A tibble: 52 x 2
258+
#> # A tibble: 40 x 2
258259
#> issued pubs
259260
#> <dbl> <int>
260-
#> 1 NA 7
261-
#> 2 2012 6
262-
#> 3 2001 5
263-
#> 4 1992 4
264-
#> 5 2016 4
265-
#> 6 1993 3
266-
#> 7 2005 3
267-
#> 8 2006 3
268-
#> 9 2009 3
269-
#> 10 2010 3
270-
#> # ... with 42 more rows
261+
#> 1 2010 7
262+
#> 2 2016 7
263+
#> 3 NA 7
264+
#> 4 2002 5
265+
#> 5 2011 5
266+
#> 6 2012 5
267+
#> 7 2013 5
268+
#> 8 2015 5
269+
#> 9 1985 3
270+
#> 10 1988 3
271+
#> # ... with 30 more rows
271272
```
272273

273274
and of what type they are
@@ -278,17 +279,18 @@ random_dois %>%
278279
group_by(type) %>%
279280
summarize(pubs = n()) %>%
280281
arrange(desc(pubs))
281-
#> # A tibble: 8 x 2
282+
#> # A tibble: 9 x 2
282283
#> type pubs
283284
#> <chr> <int>
284-
#> 1 journal-article 70
285-
#> 2 book-chapter 17
286-
#> 3 component 4
287-
#> 4 proceedings-article 4
288-
#> 5 book 2
289-
#> 6 dataset 1
290-
#> 7 journal-issue 1
291-
#> 8 reference-entry 1
285+
#> 1 journal-article 79
286+
#> 2 book-chapter 9
287+
#> 3 proceedings-article 5
288+
#> 4 component 2
289+
#> 5 dataset 1
290+
#> 6 journal-issue 1
291+
#> 7 monograph 1
292+
#> 8 proceedings 1
293+
#> 9 report 1
292294
```
293295

294296
#### Calling oaDOI.org
@@ -307,18 +309,18 @@ and merge the resulting information about open access full-text links with our C
307309
my_df <- dplyr::left_join(oa_df, random_dois, by = c("doi" = "DOI"))
308310
my_df
309311
#> # A tibble: 100 x 56
310-
#> `_best_open_url` `_closed_base_ids`
311-
#> <chr> <list>
312-
#> 1 <NA> <list [0]>
313-
#> 2 <NA> <list [0]>
314-
#> 3 <NA> <list [0]>
315-
#> 4 <NA> <list [0]>
316-
#> 5 <NA> <list [0]>
317-
#> 6 <NA> <list [0]>
318-
#> 7 <NA> <list [0]>
319-
#> 8 http://doi.org/10.1371/journal.pone.0125302.g001 <list [0]>
320-
#> 9 <NA> <list [0]>
321-
#> 10 <NA> <list [0]>
312+
#> `_best_open_url` `_closed_base_ids`
313+
#> <chr> <list>
314+
#> 1 <NA> <list [0]>
315+
#> 2 <NA> <list [0]>
316+
#> 3 <NA> <list [0]>
317+
#> 4 <NA> <list [0]>
318+
#> 5 <NA> <list [0]>
319+
#> 6 http://doi.org/10.1186/1532-429x-14-s1-p37 <list [0]>
320+
#> 7 <NA> <list [0]>
321+
#> 8 <NA> <list [0]>
322+
#> 9 <NA> <list [0]>
323+
#> 10 <NA> <list [0]>
322324
#> # ... with 90 more rows, and 54 more variables: `_closed_urls` <list>,
323325
#> # `_green_base_collections` <list>, `_open_base_ids` <list>,
324326
#> # `_open_urls` <list>, doi <chr>, doi_resolver <chr>, evidence <chr>,
@@ -328,14 +330,14 @@ my_df
328330
#> # oa_color_long <chr>, reported_noncompliant_copies <list>, url <chr>,
329331
#> # version <lgl>, year <int>, alternative.id <chr>,
330332
#> # container.title <chr>, created <chr>, deposited <chr>, funder <list>,
331-
#> # indexed <chr>, ISBN <chr>, ISSN <chr>, issued <chr>, link <list>,
332-
#> # member <chr>, page <chr>, prefix <chr>, publisher <chr>,
333+
#> # indexed <chr>, ISBN <chr>, ISSN <chr>, issue <chr>, issued <chr>,
334+
#> # link <list>, member <chr>, page <chr>, prefix <chr>, publisher <chr>,
333335
#> # reference.count <chr>, score <chr>, source <chr>, subject <chr>,
334-
#> # title <chr>, type <chr>, URL <chr>, assertion <list>, author <list>,
335-
#> # `clinical-trial-number` <list>, issue <chr>, volume <chr>,
336-
#> # license_date <chr>, license_URL <chr>, license_delay.in.days <chr>,
337-
#> # license_content.version <chr>, update.policy <chr>, subtitle <chr>,
338-
#> # abstract <chr>, archive <chr>
336+
#> # title <chr>, type <chr>, URL <chr>, volume <chr>, assertion <list>,
337+
#> # author <list>, `clinical-trial-number` <list>, license_date <chr>,
338+
#> # license_URL <chr>, license_delay.in.days <chr>,
339+
#> # license_content.version <chr>, subtitle <chr>, update.policy <chr>,
340+
#> # archive <chr>, abstract <chr>
339341
```
340342

341343
#### Reporting
@@ -358,10 +360,12 @@ my_df %>%
358360

359361
|evidence | Articles| Proportion|
360362
|:--------------------------------------|--------:|----------:|
361-
|closed | 93| 0.93|
362-
|oa journal (via publisher name) | 3| 0.03|
363-
|oa repository (via BASE) | 3| 0.03|
364-
|oa journal (via journal title in doaj) | 1| 0.01|
363+
|closed | 86| 0.86|
364+
|oa journal (via journal title in doaj) | 5| 0.05|
365+
|oa repository (via BASE) | 4| 0.04|
366+
|oa journal (via publisher name) | 2| 0.02|
367+
|oa repository (via pmcid lookup) | 2| 0.02|
368+
|hybrid (via free pdf) | 1| 0.01|
365369

366370
How many of them are provided as green or gold open access?
367371

@@ -379,9 +383,10 @@ my_df %>%
379383

380384
|oa_color | Articles| Proportion|
381385
|:--------|--------:|----------:|
382-
|NA | 93| 0.93|
383-
|gold | 4| 0.04|
384-
|green | 3| 0.03|
386+
|NA | 86| 0.86|
387+
|gold | 7| 0.07|
388+
|green | 6| 0.06|
389+
|blue | 1| 0.01|
385390

386391
Let's take a closer look and assess how green and gold is distributed over publication types?
387392

@@ -397,10 +402,11 @@ my_df %>%
397402

398403
|oa_color |type | n|
399404
|:--------|:---------------|--:|
400-
|gold |component | 3|
401-
|green |journal-article | 2|
402-
|gold |journal-article | 1|
403-
|green |book-chapter | 1|
405+
|gold |journal-article | 5|
406+
|green |journal-article | 5|
407+
|gold |component | 2|
408+
|blue |journal-article | 1|
409+
|green |monograph | 1|
404410

405411

406412
## Meta

0 commit comments

Comments
 (0)