consolidate check on ogc_csw entity handler

r-geoflow · Jan 6, 2025 · b925d64 · b925d64
1 parent 8f8f78a
commit b925d64
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/inst/metadata/entity/entity_handler_ogc_csw.R b/inst/metadata/entity/entity_handler_ogc_csw.R
@@ -140,8 +140,11 @@ handle_entities_csw <- function(handler, source, config, handle = TRUE){
 
       #doi (in case available)
       hasDOI = sapply(rec$identificationInfo[[1]]$citation$identifier, function(identifier){
-        has = !is.character(identifier$code) & !is.na(identifier$code)
-        if(has) has = regexpr(pattern = "dx.doi.org", identifier$code$attrs[["xlink:href"]]) > 0
+        has = FALSE
+        if(!is.null(identifier)){
+          has = !is.character(identifier$code) & !is.na(identifier$code)
+          if(has) has = regexpr(pattern = "dx.doi.org", identifier$code$attrs[["xlink:href"]]) > 0
+        }
         return(has)
       })
       if(any(hasDOI)){