#203 support textGroup/LocalisedCharacterString uri handling in creat…

…eLocalisedProperty
eblondel · Dec 20, 2022 · 0ff0674 · 0ff0674
1 parent 603b96f
commit 0ff0674
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/ISOAbstractObject.R b/R/ISOAbstractObject.R
@@ -1411,6 +1411,9 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
           stop("Each locale value should be of class 'character'")
         }
         localised <- ISOLocalisedCharacterString$new(locale = locale, value = localeValue)
+        if(!is.null(attr(localeValue, "uri"))){
+          localised$parentAttrs <- list("xlink:href" = attr(localeValue, "uri"))
+        }
         ft$addTextGroup(localised)
       }
       seq <- ISOElementSequence$new(xml=NULL, text, ft)