सम्मिलित पंक्ति विराम - शब्द लपेटो

Question

यहाँ एक समारोह मैं लाइनों में एक लंबी स्ट्रिंग एक दिया लंबाई

strBreakInLines <- function(s, breakAt=90, prepend="") { 
    words <- unlist(strsplit(s, " ")) 
    if (length(words)<2) return(s) 
    wordLen <- unlist(Map(nchar, words)) 
    lineLen <- wordLen[1] 
    res <- words[1] 
    lineBreak <- paste("\n", prepend, sep="") 
    for (i in 2:length(words)) { 
    lineLen <- lineLen+wordLen[i] 
    if (lineLen < breakAt) 
     res <- paste(res, words[i], sep=" ") 
    else { 
     res <- paste(res, words[i], sep=lineBreak) 
     lineLen <- 0 
    } 
    } 
    return(res) 
} 

यह समस्या मैं था के लिए काम करता है से अधिक समय नहीं तोड़ने के लिए लिखा है, लेकिन मुझे आश्चर्य है कि मैं यहां कुछ सीख सकता हूं। क्या कोई छोटा या अधिक कुशल समाधान है, खासकर मैं लूप के लिए छुटकारा पा सकता हूं?

Answer 1

कैसे इस बारे में:

gsub('(.{1,90})(\\s|$)', '\\1\n', s) 

यह अधिकतम 90 वर्ण के साथ लाइनों में स्ट्रिंग टूट जाएगा "एस" (लाइन ब्रेक चरित्र को छोड़कर "\ n", लेकिन क्या अंतर शब्द रिक्त स्थानों सहित), जब तक कि वहाँ है एक शब्द स्वयं 90 वर्णों से अधिक है, तो वह शब्द स्वयं पूरी लाइन पर कब्जा कर लेगा।

वैसे, अपने कार्य टूट लगता है --- आप

lineLen <- 0 

साथ

lineLen <- wordLen[i] 

Answer 2

आपको कम से उदा देख सकते हैं बदलना चाहिए write.dcf() आर में स्वयं ही कार्य; यह एक लूप का भी उपयोग करता है, इसलिए यहां शर्मिंदा होने के लिए कुछ भी नहीं है।

पहला लक्ष्य यह सही है - चैंबर (2008) देखें।

Answer 3

पूर्णता के लिए, strwrap पर कर्स्टन डब्ल्यू की टिप्पणी अंक, सबसे आसान कार्य है जो याद करने के लिए:

strwrap("Lorem ipsum... you know the routine", width=10) 

और वास्तव में समाधान प्रश्न में प्रस्तावित मैच के लिए, स्ट्रिंग के लिए है बाद में चिपकाया जा:

paste(strwrap(s,90), collapse="\n") 

_{इस पोस्ट में जान-बूझकर समुदाय विकी किया जाता है के बाद से समारोह को खोजने का सम्मान मेरा नहीं है।}

Answer 4

आगे पूर्णता के लिए, वहाँ है:

• stringi::stri_wrap
• stringr::str_wrap (जो सिर्फ अंत में कहता है stringi::stri_wrap

stringi संस्करण चरित्र के साथ सौदा होगा बेहतर सेट (यह ICU लाइब्रेरी पर बनाया गया है) और यह सी/सी ++ में है, इसलिए यह अंततः base::strwrap से तेज होगा। यह str पैरामीटर पर भी सदिश है।