From 79559a47df5de0c4abe6e96496ada071a23d5ac9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Thu, 22 Nov 2018 13:30:39 +0100
Subject: [PATCH] re-add the not useless argument

---
 R/codemeta_description.R | 2 +-
 R/create_codemeta.R      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/codemeta_description.R b/R/codemeta_description.R
index af6b2b8d..38f4951a 100644
--- 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
index 1099e5df..30550595 100644
--- 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)){