wrap cr_works

R/import.R

@@ -17,3 +17,25 @@ get_cr_md <- function(dois,
   }
   out
 }
+
+#' Get Crossref Works
+#'
+#' Type-/length-stable, defensive and cached variant of [rcrossref::cr_works()].
+#'
+#' @details
+#' This wrapper changes the underlying behavior as follows:
+#' - vectorised by [purrr::map_dfr()]
+#'
+#' @inheritParams biblids::as_doi
+#' @inheritDotParams rcrossref::cr_works
+#' @family import
+#' @keywords internal
+cr_works2 <- function(x, ...) {
+  x <- biblids::as_doi(x)
+  # remove this hackfix https://github.com/subugoe/metacheck/issues/182
+  x <- as.character(x)
+  res <- purrr::map_dfr(.x = as.character(x), function(x) {
+    rcrossref::cr_works(x)[["data"]]
+  })
+  res
+}

tests/testthat/test-import.R

@@ -0,0 +1,8 @@
+test_that("Crossref metadata can be read in", {
+  dois <- tu_dois()[2:5]
+  res <- cr_works2(dois)
+  expect_equal(nrow(res), length(dois))
+  # testthat does not seem to know about vctrs equality
+  # https://github.com/r-lib/testthat/issues/1349
+  expect_true(all(biblids::as_doi(res$doi) == biblids::as_doi(dois)))
+})