如题，照着网上文档使用 rcrossref::cr_works() 函数来查文章数据，代码如下：
library(rcrossref)
library(usethis)
library(tidyverse)
library(listviewer)
# Use c() to create a vector of DOIs
my_dois <- c("10.1002/chem.201601597","10.1049/iet-gtd.2014.1045","10.1007/3-540-45346-6_49")
# pass the my_dois vector to cr_works()
my_dois_works <- rcrossref::cr_works(dois = my_dois) %>% pluck("data")
报的错是：
Error in cr_GET(endpoint = path, args, todf = FALSE, ...) :
不是所有的res$response_headers$`content-type` == "application/json;charset=UTF-8"都是TRUE
这个错在网上没搜到相似的，初步怀疑是因为我不会科学上网。可是这个包的其他函数是可以用的，比如：
> cr_citation_count(doi="10.4028/www.scientific.net/AMM.511-512.286")
doi count
1 10.4028/www.scientific.net/AMM.511-512.286 0
