cr wellcome

cr_wellcome.R

#' get DOIs per ISSN
library(tidyverse)
wellcome_df <- rcrossref::cr_works(filter = c(issn = "2398-502X"), limit = 1000) %>%
  .$data
#' prepare unnest
names(wellcome_df$link) <- wellcome_df$DOI
#' unnest, remove unneded string, and export data
wellcome_dois <- dplyr::bind_rows(wellcome_df$link, .id = "doi") %>% 
  mutate(URL = gsub("/iparadigms", "", URL)) %>% 
  select(1:2)
readr::write_csv(wellcome_dois, "~/Downloads/wellcome.csv")

#' Fetch Crossref Event Data per DOI
my_cr <- purrr::map(wellcome_dois$doi, purrr::safely(function(x) {
  crevents::cred_query(filter = list(obj_id = x))$message$events
}))
cr_events <- map_df(my_cr, "result")
#' export
readr::write_csv(cr_events, "~/Downloads//wellcome_event.csv")

#' from Altmetrics
library(rAltmetric)
alt_wellcome <- purrr::map(wellcome_dois$doi, purrr::safely(function(x) {
  rAltmetric::altmetrics(doi = x) %>%
  rAltmetric::altmetric_data()
}))
tt <- purrr::map_df(alt_wellcome, "result")
write_csv(tt, "~/Downloads/altmetrics_wellcome.csv")