diff --git a/R/get_attributes.R b/R/get_attributes.R index 5e429e3..c873535 100644 --- 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))