#181 M3 fix getISOCodelist

eblondel · Oct 1, 2024 · 5fe7a40 · 5fe7a40
1 parent 2ae60e8
commit 5fe7a40
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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
  }
  }))