#133 fix getDepositionByDOI

eblondel · May 14, 2024 · 793acf8 · 793acf8
1 parent be4b560
commit 793acf8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -1004,7 +1004,7 @@ ZenodoManager <-  R6Class("ZenodoManager",
       result <- self$getDepositions(q = query, all_versions = TRUE, exact = TRUE)
       if(length(result)>0){
         result <- result[[1]]
-        if(result$doi == doi){
+        if(result$pids$doi$identifier == doi){
           infoMsg = sprintf("Successfully fetched record for DOI '%s'!",doi)
           cli::cli_alert_success(infoMsg)
           self$INFO(infoMsg)