From d452fd449b2697cbc0c84887f4c2ef84d5f5b7f5 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Fri, 4 Oct 2024 22:08:33 +0200
Subject: [PATCH] #181 M3 fix codelist value handling

---
 R/ISOCodeListValue.R | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

diff --git a/R/ISOCodeListValue.R b/R/ISOCodeListValue.R
index b2214c00..1511368d 100644
--- a/R/ISOCodeListValue.R
+++ b/R/ISOCodeListValue.R
@@ -73,8 +73,8 @@ ISOCodeListValue <- R6Class("ISOCodeListValue",
        
        if(length(cl$codeEntry)>0){
          if(!is.null(value)){
-           clEntry <- cl$codeEntry[cl$codeEntry$value == value,]
-           if(nrow(clEntry)==0){
+           clEntry <- cl$codeEntry[sapply(cl$codeEntry, function(x){x$identifier == value})]
+           if(length(clEntry)==0){
              warning(sprintf("No ISO '%s' codelist entry for value '%s'", id, value))
              clValue <- value
              if(!is.null(description)){
@@ -85,14 +85,14 @@ ISOCodeListValue <- R6Class("ISOCodeListValue",
              }
            }
          }else{
-           clEntry <- cl$codeEntry[1,]
+           clEntry <- cl$codeEntry[[1]]$identifier
          }
          
-         if(!is.null(value) & nrow(clEntry)>0){
-           clEntry <- clEntry[1L,]
-           clValue <- clEntry$value
-           clName <- clEntry$name
-           clDescription <- ifelse(!is.na(clName), clEntry$name, clEntry$description)
+         if(!is.null(value) & length(clEntry)>0){
+           clEntry <- clEntry[[1]]
+           clValue <- clEntry$identifier
+           clName <- clEntry$description
+           clDescription <- clEntry$description
            if(setValueDescription) clDescription <- clEntry$description
            self$valueDescription <- clDescription
          }
@@ -105,17 +105,19 @@ ISOCodeListValue <- R6Class("ISOCodeListValue",
            self$valueDescription <- clDescription
          }
        }
-           
-       isLocalFile <- !grepl("^http", cl$refFile) & !grepl("^https", cl$refFile)
-       clUrl <- paste(cl$refFile, id, sep="#")
-       clUrl <- gsub("ML_", "", clUrl)
-       if(isLocalFile) clUrl <- paste(getGeometaOption("codelistUrl"), clUrl, sep="/")
-       if(id == "LanguageCode"){
-         langUrlOp <- getGeometaOption("languageUrl")
-         if(!is.null(langUrlOp)) clUrl <- langUrlOp
+        
+       clUrl = ""
+       if(!is.na(cl$refFile)){
+         isLocalFile <- !grepl("^http", cl$refFile) & !grepl("^https", cl$refFile)
+         clUrl <- paste(cl$refFile, id, sep="#")
+         clUrl <- gsub("ML_", "", clUrl)
+         if(isLocalFile) clUrl <- paste(getGeometaOption("codelistUrl"), clUrl, sep="/")
+         if(id == "LanguageCode"){
+           langUrlOp <- getGeometaOption("languageUrl")
+           if(!is.null(langUrlOp)) clUrl <- langUrlOp
+         }
        }
        
-       
        if(addCodeListAttrs){
          self$attrs <- list(
            codeList = clUrl,