fix #149

eblondel · Mar 18, 2024 · c3ac84e · c3ac84e
1 parent 2a9ed4b
commit c3ac84e
Show file tree

Hide file tree

Showing 2 changed files with 36 additions and 3 deletions.
diff --git a/R/ZenodoRecord.R b/R/ZenodoRecord.R
@@ -589,10 +589,25 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
       self$metadata$version <- version
     },
 
-    #' @description  Set the language.
+    #' @description  Adds a language.
+    #' @param language ISO 639-2 or 639-3 code
+    addLanguage = function(language){
+      zenodo = ZenodoManager$new()
+      zen_language = zenodo$getLanguageById(language)
+      if(is.null(zen_language)){
+        errorMsg <- sprintf("Language with id '%s' doesn't exist in Zenodo", language)
+        self$ERROR(errorMsg)
+        stop(errorMsg)
+      }
+      self$metadata$languages[[length(self$metadata$languages)+1]] <- list(id = language)
+    },
+
+    #' @description Set the language
     #' @param language ISO 639-2 or 639-3 code
     setLanguage = function(language){
-      self$metadata$language <- language
+      warnMsg = "Method 'setLanguage' is deprecated, please use 'addLanguage'"
+      self$WARN(warnMsg)
+      self$addLanguage(language)
     },
 
     #' @description Adds a related identifier with a given relation.

diff --git a/man/ZenodoRecord.Rd b/man/ZenodoRecord.Rd