fix getISOCodelists

eblondel · Jan 2, 2025 · f75d9b8 · f75d9b8
1 parent d9e0cd9
commit f75d9b8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/ISOCodelist.R b/R/ISOCodelist.R
@@ -303,9 +303,10 @@ getISOCodelists <- function(version = NULL){
         classname = x$classname,
         codeSpace = if(!is.null(cl$codeSpace)) cl$codeSpace else NA,
         description = if(!is.null(cl$description)) cl$description else NA,
-        xmlNamespace = cl_ns,
+        xmlNamespace = if(!is.null(cl_ns)) cl_ns else NA,
         xmlElement = el
       )
+      out = out[!is.na(out$xmlNamespace),]
       return(out)
     }))
   }else{