#58 additional codes

eblondel · Oct 12, 2021 · bd31131 · bd31131
1 parent 0a42cad
commit bd31131
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -594,11 +594,13 @@ ZenodoManager <-  R6Class("ZenodoManager",
       query <- sprintf("conceptdoi:%s", gsub("/", "//", conceptdoi))
       result <- self$getDepositions(q = query, exact = TRUE)
       if(length(result)>0){
-        dois <- vapply(result, function(i) i$doi, character(1))
-        if (!conceptdoi %in% dois){
+        conceptdois <- vapply(result, function(i){
+          i$getConceptDOI()
+        }, character(1))
+        if (!conceptdoi %in% conceptdois){
           result <- NULL
         }else{
-          result <- result[[which(dois == conceptdoi)[1]]]
+          result <- result[[which(conceptdois == conceptdoi)[1]]]
           self$INFO(sprintf("Successfully fetched record for concept DOI '%s'!", conceptdoi))
         }
       }else{

diff --git a/R/ZenodoRecord.R b/R/ZenodoRecord.R
@@ -421,7 +421,7 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
         doi <- self$metadata$prereserve_doi
         if(!is.null(doi)) {
           doi_parts <- unlist(strsplit(doi$doi, "zenodo."))
-          conceptdoi <- paste0(doi_parts[1], "zenodo.", as.integer(doi_parts[2])-1)
+          conceptdoi <- paste0(doi_parts[1], "zenodo.", self$conceptrecid)
         }
       }
       return(conceptdoi)