Query CrossRef through rcrossref package, using DOI prefix

crossref_doi_prefix_search.R

# install.packages("pubmedR")
# install.packages("rcrossref")
# devtools::install_github("ropensci/rAltmetric")

library(pubmedR)
library(rcrossref)
library(rAltmetric)
pacman::p_load(curl,readr, tidyverse,purrr) # load required packages


# Conduct search ----------------------------------------------------------

# doi prefix for Research Square
rs_doi_prefix="10.21203"

# Set upper limit for search results (2000 results ran in <1 minute for me)
max_results=2000

# run search
res_sq_publications <- rcrossref::cr_prefixes(prefixes = rs_doi_prefix,
                                              cursor = "*",
                                              works = T,
                                              cursor_max = max_results) %>%
  purrr::pluck("data")