fix #133 getRecordByConceptDOI, getRecordByConceptId, getRecordbyDOI

eblondel · May 14, 2024 · f85563c · f85563c
1 parent 0571ec5
commit f85563c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -1775,7 +1775,7 @@ ZenodoManager <-  R6Class("ZenodoManager",
       result <- self$getRecords(q = query, all_versions = TRUE, exact = TRUE)
       if(length(result)>0){
         result <- result[[1]]
-        if(result$conceptdoi == conceptdoi){
+        if(result$getConceptDOI() == conceptdoi){
           infoMsg = sprintf("Successfully fetched published record for concept DOI '%s'!", conceptdoi)
           cli::cli_alert_success(infoMsg)
           self$INFO(infoMsg)
@@ -1818,7 +1818,7 @@ ZenodoManager <-  R6Class("ZenodoManager",
       result <- self$getRecords(q = query, all_versions = TRUE, exact = TRUE)
       if(length(result)>0){
         result <- result[[1]]
-        if(result$doi == doi){
+        if(result$getDOI() == doi){
           infoMsg = sprintf("Successfully fetched record for DOI '%s'!",doi)
           cli::cli_alert_success(infoMsg)
           self$INFO(infoMsg)
@@ -1880,7 +1880,7 @@ ZenodoManager <-  R6Class("ZenodoManager",
       result <- self$getRecords(q = query, all_versions = TRUE, exact = TRUE)
       if(length(result)>0){
         result <- result[[1]]
-        if(result$conceptrecid == conceptrecid){
+        if(result$getConceptId() == conceptrecid){
           infoMSg = sprintf("Successfully fetched record for concept id '%s'!",conceptrecid)
           cli::cli_alert_success(infoMsg)
           self$INFO(infoMsg)