remove dead code

eblondel · May 15, 2024 · 685d0b3 · 685d0b3
1 parent 32f44ff
commit 685d0b3
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/R/ZenodoRecord.R b/R/ZenodoRecord.R
@@ -72,15 +72,6 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
         resource_type_id = resource_type$id
         self$metadata$resource_type = list(id = resource_type_id)
       }
-      self$metadata$related_identifiers = lapply(self$metadata$related_identifiers, function(identifier){
-        #map DataCite term to zenodo lowercase term
-        #TODO investigate this is needed
-        id = identifier
-        if(is.null(identifier$relation_type) && !is.null(identifier$relation)){
-          id$relation_type = list(id = tolower(identifier$relation))
-        }
-        return(id)
-      })
       self$pids = obj$pids
       self$parent = obj$parent