From 0ff0674ed3186ed8aa0ee3302a65e487bd87f90e Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Wed, 21 Dec 2022 00:10:03 +0100
Subject: [PATCH] #203 support textGroup/LocalisedCharacterString uri handling
 in createLocalisedProperty

---
 R/ISOAbstractObject.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/ISOAbstractObject.R b/R/ISOAbstractObject.R
index 48c43cd7..1a479b76 100644
--- 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)