remove media_files field, #133 support references

eblondel · May 14, 2024 · 0dfb3a8 · 0dfb3a8
1 parent 504208d
commit 0dfb3a8
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/ZenodoRecord.R b/R/ZenodoRecord.R
@@ -117,8 +117,6 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
     id = NULL,
     #' @field links list of links associated to the record
     links = list(),
-    #' @field media_files media files
-    media_files = list(),
     #' @field metadata metadata elements associated to the record
     metadata = list(),
     #' @field parent parent record
@@ -734,8 +732,8 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
     addReference = function(reference){
       added <- FALSE
       if(is.null(self$metadata$references)) self$metadata$references <- list()
-      if(!(reference %in% self$metadata$references)){
-        self$metadata$references[[length(self$metadata$references)+1]] <- reference
+      if(!(reference %in% sapply(self$metadata$references, function(x){x$reference}))){
+        self$metadata$references[[length(self$metadata$references)+1]] <- list(reference = reference)
         added <- TRUE
       }
       return(added)
@@ -749,7 +747,7 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
       if(!is.null(self$metadata$references)){
         for(i in 1:length(self$metadata$references)){
           ref <- self$metadata$references[[i]]
-          if(ref == reference){
+          if(ref$reference == reference){
             self$metadata$references[[i]] <- NULL
             removed <- TRUE
             break;