if (FALSE) {
cr_citation_count(doi="10.1371/journal.pone.0042793")
cr_citation_count(doi="10.1016/j.fbr.2012.01.001")
## many
dois <- c("10.1016/j.fbr.2012.01.001", "10.1371/journal.pone.0042793")
cr_citation_count(doi = dois)
# DOI not found
cr_citation_count(doi="10.1016/j.fbr.2012")
# asyc
dois <- c("10.1016/j.fbr.2012.01.001", "10.1371/journal.pone.0042793",
"10.1016/j.fbr.2012", "10.1109/tsp.2006.874779", "10.1007/bf02231542",
"10.1007/s00277-016-2782-z", "10.1002/9781118339893.wbeccp020",
"10.1177/011542659200700105", "10.1002/chin.197444438",
"10.1002/9781118619599.ch4", "10.1007/s00466-012-0724-8",
"10.1017/s0376892900029477", "10.1167/16.12.824")
res <- cr_citation_count(doi = dois, async = TRUE)
## verbose curl
res <- cr_citation_count(doi = dois, async = TRUE, verbose = TRUE)
res
## time comparison
system.time(cr_citation_count(doi = dois, async = TRUE))
system.time(cr_citation_count(doi = dois, async = FALSE))
# from a set of random DOIs
cr_citation_count(cr_r(50), async = TRUE)
}
Run the code above in your browser using DataLab