Open njahn82 opened 6 years ago
Using the data dump for hybrid oa articles, it seems that it is not that common:
library(dplyr)
library(jsonlite)
all_df <- jsonlite::stream_in(file("~/Downloads/hybrid_licence_md.json"), verbose = FALSE)
as_data_frame(all_df) %>% bind_rows(.$md) %>% distinct(DOI, .keep_all = TRUE) %>%
filter(grepl("[:a-z:]", issue)) %>% count(container.title, publisher, issue)
#> # A tibble: 9 x 4
#> container.title publisher issue n
#> <chr> <chr> <chr> <int>
#> 1 BJU International Wiley-Blac… 6b 1
#> 2 Cerebrovascular Diseases S. Karger … s1 6
#> 3 Clinical Infectious Diseases Oxford Uni… supp… 5
#> 4 Clinical Infectious Diseases Oxford Uni… supp… 9
#> 5 International Archives of Allergy and Immunology S. Karger … s2 1
#> 6 Medical Physics Wiley-Blac… 6Par… 18
#> 7 Medical Physics Wiley-Blac… 8Par… 15
#> 8 Schizophrenia Bulletin Oxford Uni… supp… 999
#> 9 Transfusion Wiley-Blac… 3pt2 4
However, non-OA articles need to be checked as well.
E.g. https://api.crossref.org/works?facet=published:*,license:*,publisher-name:*&filter=issn:0586-7614,from-pub-date:2018,type:journal-article
Publisher page https://academic.oup.com/schizophreniabulletin/issue/44/suppl_1