Sprintf en R no cuenta umlauts

Question

Tengo un vector de caracteres y quiero asegurarme de que todos los elementos del vector tengan la misma longitud. Por lo tanto yo lleno elementos cortos con espacios, así:

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

como respuestas a mi previous question sugeridos. Esto está bien, pero parece tener problemas con diéresis. Por ejemplo, si mi vector se ve así:

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

Estoy ejecutando R en Mac OS X (10.6). ¿Cómo puedo arreglar esto?

EDITAR: Nota, no estoy buscando arreglar la salida de nchar porque es correcta. El problema es que sprintf pierde la diéresis.

EDITAR: Actualiza R, cambia a DWins configuración regional - sin cambios en absoluto. Pero:

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

extraño.

Answer 1

es probable que haya una forma más limpia ... pero esto funciona:

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

(Véase el comentario a continuación para el -explication [no] para el 13)

Answer 2

He encontrado esto en la página ?sprintf :

Si cualquier elemento de fmt o cualquier argumento de caracteres se declara como UTF-8, el elemento del resultado estará en UTF-8 y tendrá la codificación declarada como UTF-8. De lo contrario, estará en la codificación del lugar actual.

La entrada toma su configuración regional de la ubicación de Rgui (creo); vea abajo.

En las ventanas que, afortunadamente, ya se imprime:

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

I piensan en MacOS se puede lograr esto con la apertura de R como la siguiente, pero no tengo ninguna Mac aquí para probar realmente esto:

Rgui --encoding=utf-8