fix getDepositionByConceptDOI method

eblondel · Oct 11, 2021 · 7c81612 · 7c81612
1 parent 969053a
commit 7c81612
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -594,11 +594,12 @@ ZenodoManager <-  R6Class("ZenodoManager",
       query <- sprintf("conceptdoi:%s", gsub("/", "//", conceptdoi))
       result <- self$getDepositions(q = query, exact = TRUE)
       if(length(result)>0){
-        result <- result[[1]]
-        if(result$conceptdoi == conceptdoi){
-          self$INFO(sprintf("Successfully fetched record for concept DOI '%s'!", conceptdoi))
-        }else{
+        dois <- vapply(result, function(i) i$doi, character(1))
+        if (!conceptdoi %in% dois){
           result <- NULL
+        }else{
+          result <- result[[which(dois == conceptdoi)[1]]]
+          self$INFO(sprintf("Successfully fetched record for concept DOI '%s'!", conceptdoi))
         }
       }else{
         result <- NULL