From 5fe7a40fd77b76e632969fe17a5f29a6839271b3 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 1 Oct 2024 23:40:49 +0200
Subject: [PATCH] #181 M3 fix getISOCodelist

---
 R/ISOCodelist.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ISOCodelist.R b/R/ISOCodelist.R
index e47aed77..e0c08192 100644
--- a/R/ISOCodelist.R
+++ b/R/ISOCodelist.R
@@ -294,8 +294,8 @@ getISOCodelists <- function(){
 #
 getISOCodelist <- function(id){
   codelist <- NULL
-  invisible(lapply(getISOInternalCodelists(), function(cl){
-    if(cl$id == id){
+  invisible(lapply(getISOInternalCodelists()[[getMetadataStandard()]], function(cl){
+    if(cl$identifier$value == id){
       codelist <<- cl
     }
   }))