zenodo all_versions bugfix

cboettig · Apr 21, 2023 · b90eb88 · b90eb88
1 parent 3ca3c3b
commit b90eb88
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: contentid
-Version: 0.0.16
+Version: 0.0.17
 Title: An Interface for Content-Based Identifiers
 Description: An interface for creating, registering, and resolving content-based
              identifiers for data management. Content-based identifiers rely on

diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,9 @@
 # contentid 0.0.17
 
+- bugfix for Zenodo resolver to search all versions
+
+- bugfix for local cache / content store handling of hashes other than SHA-256
+
 - software heritage is no longer a default registry. SWH imposes rate
   limiting of 120 calls, and so should not be pinged if not expected as a registry.
 

diff --git a/R/zenodo_registry.R b/R/zenodo_registry.R
@@ -12,7 +12,7 @@ sources_zenodo <- function(id, host = "https://zenodo.org"){
   }
 
   checksum <- paste0('"', algo, ":", hash, '"')
-  url <- paste0(host, query, checksum)
+  url <- paste0(host, query, checksum, '&all_versions=1')
 
   sources <- tryCatch({
     resp <- httr::GET(url)

diff --git a/tests/testthat/test-zenodo.R b/tests/testthat/test-zenodo.R
@@ -0,0 +1,16 @@
+
+context("Zenodo")
+
+
+test_that("we can return sources from Zenodo", {
+
+  skip_if_offline()
+  skip_on_cran()
+
+  id <- paste0("hash://md5/61b36a86930f6ffb073f4e189bbd5723")
+  df <- sources_zenodo(id)
+  expect_is(df, "data.frame")
+  expect_gt(nrow(df), 0)
+
+})
+