Merge pull request #215 from PacificCommunity/master

SDMXCode to read parent codes properly
opensdmx · Jan 8, 2025 · e1dcec6 · e1dcec6
2 parents b724c69 + 9c90ba9
commit e1dcec6
Show file tree

Hide file tree

Showing 3 changed files with 3,098 additions and 6 deletions.
diff --git a/R/SDMXCode-methods.R b/R/SDMXCode-methods.R
@@ -39,8 +39,16 @@ SDMXCode <- function(xmlObj, namespaces){
   urn = xmlGetAttr(xmlObj, "urn")
   if(is.null(urn)) urn <- as.character(NA)
 
-  parentCode = xmlGetAttr(xmlObj, "parentCode")
-  if(is.null(parentCode)) parentCode <- as.character(NA)
+  parentCode <- as.character(NA)
+  parentId <- xmlGetAttr(xmlObj, "parentCode")
+  if(!is.null(parentId)) parentCode <- parentId
+  parentNode <- getNodeSet(xmlDoc(xmlObj), "//ns:Parent//Ref", namespaces = strNs)
+  if(length(parentNode) == 1) parentCode <- xmlGetAttr(parentNode[[1]], "id")
+  if(length(parentNode)  > 1) {
+    parentCode <- sapply(parentNode, function(x) { xmlGetAttr(x, "id") })
+    # we collapse the vector of parent codes into a single string as required by the SDMXCode class
+    parentCode <- paste(parentCode, collapse = ",")
+  }
 
   #elements
   #========