Merge pull request #59 from mpadge/master

fix getDepositionByConceptDOI method
eblondel · Oct 11, 2021 · a774850 · a774850
2 parents 969053a + 7c81612
commit a774850
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