regex - 長い文字列に自動的に改行を挿入する

Question

このような文字列に改行を挿入して、単語を分割しないように自動調整することはできますか?

 nif <- as.character(c("I am a string", "So am I", 
     "I am also a string but way to long"))

投稿でこのコードを見つけましたが、単語を分割し、回避したい各文字列の後に改行を追加します

  gsub('(.{1,20})', '\\1\n',nif)

私がしようとしている出力はこれです：

 "I am a string"    "So am I"     "I am also a string but \n way to long" 

Answer 1

いくつかの文字の後に最初のスペースを見つけて、それを置き換えることができます\n

たとえば、このようなもの

 gsub('(.{18})\\s(.*)', '\\1\n\\2',nif)

[1] "I am a string"                       "So am I"                            
    "I am also a string\nbut way to long"