आर में स्प्रिंटफ umlauts की गणना नहीं करता

Question

मेरे पास वर्णों का वेक्टर है और मैं यह सुनिश्चित करना चाहता हूं कि वेक्टर के सभी तत्वों की लंबाई समान है। मेरी previous question सुझाव के जवाब की तरह

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

: इसलिए मैं रिक्त स्थान के साथ लघु तत्वों को भरने, यह पसंद है। यह ठीक है लेकिन ऐसा लगता है कि उमलों के साथ परेशानी है। उदाहरण के लिए यदि मेरा वेक्टर इस तरह दिखता है:

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

मै मैक ओएस एक्स (10.6) पर आर चला रहा हूं। मैं इसे कैसे ठीक करूं?

संपादित करें: नोट, मैं nchar के आउटपुट को ठीक करने की तलाश नहीं कर रहा हूं क्योंकि यह सही है। समस्या यह है कि sprintf उमोट खो देता है।

संपादित करें: अद्यतन आर, डीविन्स लोकेल में बदल गया - बिल्कुल कोई बदलाव नहीं। लेकिन:

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

अजीब।

Answer 1

शायद एक क्लीनर तरीका है ... लेकिन यह काम करता है:

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

Answer 2

(13 के लिए [गैर] -explication के लिए नीचे टिप्पणी देखें) मैं ?sprintf पृष्ठ पर इस पाया :

fmt या किसी चरित्र तर्क के किसी भी तत्व को UTF-8 के रूप में घोषित किया गया है, परिणाम के तत्व UTF-8 में हो सकता है और एन्कोडिंग UTF-8 के रूप में घोषित किया जाएगा। अन्यथा यह वर्तमान लोकेल के एन्कोडिंग में होगा।

इनपुट अपने स्थानीय लोगों को रुगुई के लोकेल (मुझे लगता है) से लेता है; निचे देखो।

खिड़कियों पर यह सौभाग्य से पहले से ही प्रिंट:

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

मैं MacOS पर लगता आप निम्नलिखित की तरह उद्घाटन आर के साथ इस लक्ष्य को हासिल कर सकते हैं, लेकिन मुझे नहीं वास्तव में इस परीक्षण करने के लिए यहां किसी भी मैक है:

Rgui --encoding=utf-8