re-add the not useless argument

hsonne · Nov 22, 2018 · 79559a4 · 79559a4
1 parent 9ebe5a8
commit 79559a4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/codemeta_description.R b/R/codemeta_description.R
@@ -15,7 +15,7 @@ new_codemeta <- function() {
 
 # Can add to an existing codemeta document
 codemeta_description <-
-  function(f, codemeta = new_codemeta()) {
+  function(f, id = NULL, codemeta = new_codemeta()) {
     if (file.exists(f)) {
       descr <- desc::desc(f)
     } else {

diff --git a/R/create_codemeta.R b/R/create_codemeta.R
@@ -55,7 +55,7 @@ create_codemeta <- function(pkg = ".",
   }
   ## get information from DESCRIPTION
   cm <-
-    codemeta_description(file.path(root, "DESCRIPTION"), cm)
+    codemeta_description(file.path(root, "DESCRIPTION"), id = id, cm)
 
   ## Guess these only if not set in current codemeta
   if ((is.null(cm$codeRepository) & force_update)){