[Rd] encoding question again

Thu Dec 27 21:39:42 CET 2007

Matthias,

you get exactly what you specified - namely UTF-8. If you want your  
html file to be latin1, then you have to say so:

zz = file( paste("Itemtabelle/Itemtabelle", abt, ".html"), "wt",  
encoding = "latin1")

In addition, you're assuming that `abt' is in the correct encoding to  
be understood by your OS. If it's not, you better convert it into one.  
 From your results it seems as if `abt' is also UTF-8 encoded. Since  
you didn't tell us where you got that from, you should either fix the  
source or use something like iconv(abt,"utf-8","latin1"):

(in UTF-8 locale)
 > abt="nür"
 > cat(abt,"\n")
nür
 > charToRaw(abt)
[1] 6e c3 bc 72
 > charToRaw(iconv(abt,"utf-8","latin1"))
[1] 6e fc 72

Cheers,
Simon

On Dec 27, 2007, at 3:11 PM, Matthias Wendel wrote:

> Hi, R Devils,
> I'm running the actual R version in JGR (version 1.5-8 ).  
> Sys.getlocale(category = "LC_ALL") yields
> [1] "LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany. 
> 1252;LC_MONETARY=German_Germany. 
> 1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252"
>
> I want to write some HTML-Code enhanced by statistical results and  
> labels encoded in Latin-1, which I pass to a function. Some label  
> shall generate the filename. Although the labels are correctly  
> handled in JGR they are somehow converted when they are written to  
> the file. Also the filename is not constructed as wanted. The  
> function definition is correctly sourced into R. The function is  
> defined like this:
>
> Itemtabelle.head <- function (abt ){
>   # nür zöm TÄST
>   zz = file( paste("Itemtabelle/Itemtabelle", abt, ".html"), "wt",  
> encoding = "UTF-8")
>   cat(as.character("<html xmlns:o=\"urn:schemas-microsoft-com:office:office 
> \" xmlns:x=\"urn:schemas-microsoft-com:office:excel\" xmlns=\"http://www.w3.org/TR/REC-html40 
> \">  \n"),
>       as.character("    
> < 
> head 
> > 
>                                                                                                                                                 \n 
> "),
> 		.
> 		.
> 		.
>       as.character("        <td colspan=5 class=xl28 width=727 style= 
> \'width:545pt\'>Gesundheitsindikatoren:  "), abt, as.character("</ 
> td>                                   \n"),
>       as.character("       </ 
> tr 
> > 
>                                                                                                                                                "), file 
>  = zz)
>       close(zz)
>       unlink(zz)
> }
> Setting abt as " Ärzte Innere, Gynäkologie" and calling the function  
> with this argument, yields a filename "Itemtabelle  Ã„rzte Innere,  
> GynÃ¤kologie .html" and in the file a line
>         <td colspan=5 class=xl28 width=727 style='width: 
> 545pt'>Gesundheitsindikatoren:    ÃƒÂ„rzte Innere, GynÃƒÂ¤kologie </ 
> td>
> is generated.                                 .
> I tried to solve this by using iconv, without success.
> The problem remains the same in the rgui and rterm - in rterm the  
> resulting filename is "Itemtabelle Žrzte Innere, Gyn„kologie  .html".
>
> Cheers,
> Matthias
>
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel