fix deleteRecords based on inveniordm json format

eblondel · May 13, 2024 · 129e396 · 129e396
1 parent 13de804
commit 129e396
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -1267,7 +1267,7 @@ ZenodoManager <-  R6Class("ZenodoManager",
     #' @return \code{TRUE} if all records have been deleted, \code{FALSE} otherwise
     deleteRecords = function(q = "", size = 10){
       records <- self$getDepositions(q = q, size = size)
-      records <- records[sapply(records, function(x){!x$submitted})]
+      records <- records[sapply(records, function(x){x$status == "draft"})]
       hasDraftRecords <- length(records)>0
       if(length(records)>0){
         record_ids <- sapply(records, function(x){x$id})