Merge pull request #336 from jeanetteclark/master

make `get_attributes` fully compatible with annotations
ropensci · Apr 27, 2022 · f76bcb0 · f76bcb0
2 parents 4cbd856 + 6ac19fa
commit f76bcb0
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/get_attributes.R b/R/get_attributes.R
@@ -91,6 +91,14 @@ get_attributes <- function(x, eml = NULL) {
                         "propertyLabel",
                         names(atts),
                         fixed = TRUE)
+    names(atts) <- gsub("annotation.propertyURI.propertyURI",
+                        "propertyURI",
+                        names(atts),
+                        fixed = TRUE)
+    names(atts) <- gsub("annotation.valueURI.valueURI",
+                        "valueURI",
+                        names(atts),
+                        fixed = TRUE)
     names(atts) <- gsub(".+\\.+",
                         "",
                         names(atts))