bug fix

Adding the classification statement for copied items

Author: antaldaniel

R/add_id_statement.R

@@ -16,11 +16,15 @@
 #' @importFrom httr POST content
 #' @importFrom glue glue
 #' @export
+
 add_id_statement <- function(
-    qid, pid, o,
+    qid,
+    pid,
+    o,
     wikibase_type = "external-id",
     wikibase_api_url = "https://reprexbase.eu/demowiki/api.php",
     csrf) {
+
   datavalue <- paste0('"', o, '"')
   datavalue
 
@@ -53,7 +57,9 @@ add_id_statement <- function(
     handle = csrf
   )
 
-  response <- httr::content(new_claim, as = "parsed", type = "application/json")
+  response <- httr::content(new_claim,
+                            as = "parsed",
+                            type = "application/json")
 
   if ("error" %in% names(response)) {
     warning_message <- glue::glue("Error in 'wbcreateclaim' wrapper add_id_statement():\n", response$error$code, ": ", response$error$info)

R/copy_wikidata_item.R

@@ -355,6 +355,18 @@ copy_wikidata_item <- function(
       )
     }
 
+    if (is_pid(classification_property) && is_qid(classification_id)) {
+      ## If there is a classification property like instance of or
+      ## subclass of, then try to add a statement about it.
+      add_item_statement(
+        qid = created_item_response$entity$id,
+        pid = classification_property,
+        o = classification_id,
+        wikibase_api_url = wikibase_api_url,
+        csrf = csrf
+      )
+    }
+
     # Unwrap the newly created label from the response for checking...
     created_item_label <- created_item_response$entity$labels[1]
     # ... and the description, too.