[R] saveXML() prefix argument

[Milan Bouchet-Valat]

Le vendredi 18 octobre 2013 à 13:27 -0400, Earl Brown a écrit :
> Thanks Duncan. However, now I can't get the Spanish and Portuguese accented vowels to come out correctly and still keep the indents in the saved document, even when I set encoding = "UTF-8":
> 
> library("XML")
> concepts <- c("español", "português")
> info <- c("info about español", "info about português")
> 
> doc <- newXMLDoc()
> root <- newXMLNode("tips", doc = doc)
> for (i in 1:length(concepts)) {
> 	cur.concept <- concepts[i]
> 	cur.info <- info[i]
> 	cur.tip <- newXMLNode("tip", attrs = c(id = i), parent = root)
> 	newXMLNode("h1", cur.concept, parent = cur.tip)
> 	newXMLNode("p", cur.info, parent = cur.tip)
> }
> 
> # accented vowels don't come through correctly, but the indents are correct:
> saveXML(doc, file = "test1.xml", indent = T)
> 
> Resulting file looks like this:
> <?xml version="1.0"?>
> <tips>
>   <tip id="1">
>     <h1>espa&#xF1;ol</h1>
>     <p>info about espa&#xF1;ol</p>
>   </tip>
>   <tip id="2">
>     <h1>portugu&#xEA;s</h1>
>     <p>info about portugu&#xEA;s</p>
>   </tip>
> </tips>
> 
> # accented vowels are correct, but the indents are no longer correct:
> saveXML(doc, file = "test2.xml", indent = T, encoding = "UTF-8")
> 
> Resulting file:
> <?xml version="1.0" encoding="UTF-8"?>
> <tips><tip id="1"><h1>español</h1><p>info about español</p></tip><tip
> id="2"><h1>português</h1><p>info about português</p></tip></tips>
> 
> I tried to workaround the problem by simply loading in that resulting
> file and saving it again:
> doc2 <- xmlInternalTreeParse(file = "test2.xml", asTree = T)
> saveXML(doc2, file = "test_word_around.xml", indent = T)
> 
> but still don't get the indents.
> 
> Does setting encoding = "UTF-8" override indents = TRUE in saveXML()?
I can confirm the same issue happens here. What is interesting is that
without the 'file' argument, the returned string includes the expected
line breaks and spacing. These do not appear when redirecting the output
to a file.

> saveXML(doc, encoding="UTF-8", indent=T)
[1] "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<tips>\n  <tip id=\"1
\">\n    <h1>español</h1>\n    <p>info about español</p>\n  </tip>\n
<tip id=\"2\">\n    <h1>português</h1>\n    <p>info about
português</p>\n  </tip>\n</tips>\n"

> saveXML(doc, encoding="UTF-8", indent=T, file="test.xml")

Contents of test.xml:
<?xml version="1.0" encoding="UTF-8"?>
<tips><tip id="1"><h1>español</h1><p>info about español</p></tip><tip id="2"><h1>português</h1><p>info about português</p></tip></tips>


> sessionInfo()
R version 3.0.1 (2013-05-16)
Platform: x86_64-redhat-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=fr_FR.utf8       LC_NUMERIC=C             
 [3] LC_TIME=fr_FR.utf8        LC_COLLATE=fr_FR.utf8    
 [5] LC_MONETARY=fr_FR.utf8    LC_MESSAGES=fr_FR.utf8   
 [7] LC_PAPER=C                LC_NAME=C                
 [9] LC_ADDRESS=C              LC_TELEPHONE=C           
[11] LC_MEASUREMENT=fr_FR.utf8 LC_IDENTIFICATION=C      

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods
base     

other attached packages:
[1] XML_3.96-1.1


Regards