manual orcid doi pull

cv.Rmd

@@ -60,21 +60,24 @@ tribble(
 library(dplyr)
 library(rorcid)
 
-# works <- rorcid::orcid_works(orc_id)[[1]]
+if (!file.exists("publications.bib")) {
-# 
+  works <- rorcid::orcid_works(orc_id)[[1]]
-# edu <- do.call("rbind",
-#   rorcid::orcid_educations(orc_id)[[1]]
-# )
   
-# orc_id <- "0000-0002-7559-1154"
+  dois <-
-# pubs <- orcid_citations(orcid = orc_id, put_code=NULL)
+    Reduce(c, do.call(
-# 
+      cbind,
-# writeLines(pubs$citation, "publications.bib")
+      lapply(works$works$`external-ids.external-id`, function(a) {
-# bibliography_entries("pubs.bib") %>%
+        if ("doi" %in% c(a[[1]])) {
-#   arrange(desc(author$family), issued)
+          s <- do.call(cbind, a)
+          s[, "external-id-normalized.value"][s[, "external-id-type"] == "doi"]
+        }
+      })
+    )) |> na.omit() |>  unique()
   
-bibliography_entries("pubs.bib") %>%
+  # rorcid::check_dois(dois)
-  arrange(desc(issued))
+  RefManageR::GetBibEntryWithDOI(dois) |> rbibutils::writeBib("publications.bib")
+}
 
-## Currently not working; I think it is due to error in DOI lookup with latest article.
+bibliography_entries("publications.bib") %>%
+  arrange(desc(author$family), issued)
 ```