Sprintf in R non conta le dieresi

Question

Ho un vettore di caratteri e voglio assicurarmi che tutti gli elementi del vettore abbiano la stessa lunghezza. Quindi mi riempio gli elementi corti con spazi, in questo modo:

vec <- c("fjdlksa01dada","rau","sjklf") 
x <- sprintf("%-15s", vec) 
nchar(x) 
# returns 
[1] 15 15 15 

come risposte alla mia previous question suggerito. Questo va bene, ma sembra avere problemi con le dieresi. Ad esempio se il mio vettore si presenta così:

vec2 <- c("fjdlksa01dada","rauü","sjklf") 
y <- sprintf("%-15s", vec) 
nchar(y) 
# returns 
[1] 15 14 15 

Sto eseguendo R su Mac OS X (10.6). Come posso risolvere questo?

MODIFICA: Nota, non sto cercando di correggere l'output di nchar perché è corretto. Il problema è che sprintf perde l'umlaut.

MODIFICA: aggiornamento R, modificato in locale DWins: nessuna modifica. Ma:

vec2 <- c("fjdlksa01dada","rauü","sjklf") 
Encoding(vec2) 
# returns 
[1] "unknown" "UTF-8" "unknown" 

strano.

Answer 1

C'è probabilmente un modo più pulito ... ma questo funziona:

sapply(vec, function(x){ 
     paste(x, paste(rep(" ", 13-nchar(x)), collapse=""), "") 
     }) 

(vedi commento per la [non] -explication per il 13)

Answer 2

Ho trovato questo nella pagina ?sprintf :

Se qualsiasi elemento di fmt o qualsiasi argomento di carattere è dichiarato come UTF-8, l'elemento del risultato sarà in UTF-8 e la codifica dichiarata come UTF-8. Altrimenti sarà nella codifica delle impostazioni locali correnti.

L'input prende il suo locale dal locale di Rgui (credo); vedi sotto.

Su Windows è fortunatamente già stampa:

> vec2 <- c("fjdlksa01dada","rauü","sjklf") 
> y <- sprintf("%-15s", vec) 
> nchar(y) 
[1] 15 15 15 

ho penso su MacOS è possibile raggiungere questo obiettivo con R apertura come il seguente, ma io non sono qui qualsiasi Mac per testare in realtà questo:

Rgui --encoding=utf-8