add digest ID for contact retrieved through OGC CSW

eblondel · eblondel · commit a4fef08c15ef · 2026-02-12T16:18:18.000+01:00
diff --git a/inst/metadata/entity/entity_handler_ogc_csw.R b/inst/metadata/entity/entity_handler_ogc_csw.R
@@ -57,6 +57,7 @@ handle_entities_csw <- function(handler, source, config, handle = TRUE){
       }
     }
     contact$setRole(rp$role$attrs$codeListValue)
+    contact$setIdentifier(key = "digest", digest::digest(contact))
     return(contact$clone(deep = TRUE))
   }
   

Original file line number	Diff line number	Diff line change
`@@ -57,6 +57,7 @@ handle_entities_csw <- function(handler, source, config, handle = TRUE){`
`57`	`57`	`}`
`58`	`58`	`}`
`59`	`59`	`contact$setRole(rp$role$attrs$codeListValue)`
	`60`	`+ contact$setIdentifier(key = "digest", digest::digest(contact))`
`60`	`61`	`return(contact$clone(deep = TRUE))`
`61`	`62`	`}`
`62`	`63`