r - R函数每n个字开始换行吗？

Question

我想创建一个R函数，该函数在字符串中的每个n个单词之后插入一个“\ n”(其中n是一个参数)。

例如

startstring <- "I like to eat fried potatoes with gravy for dinner."

myfunction(startstring, 4)

会给:

"I like to eat\nfried potatoes with gravy\nfor dinner."

我相信要做到这一点，我需要将字符串分成几部分，每部分长n个单词，然后将其与分隔符“\ n”粘贴在一起。但是，我不知道如何执行初始拆分步骤。

有人可以建议吗？

Answer 1

您可以使用正则表达式或可憎的方式解决此问题:

words = strsplit(startstring, ' ')[[1L]]
splits = cut(seq_along(words), breaks = seq(0L, length(words) + 4L, by = 4L))
paste(lapply(split(words, splits), paste, collapse = ' '), collapse = '\n')

但是，对于大多数实际应用而言，更好的方法是使用 strwrap以给定的列长而不是字数来包装文本:

paste(strwrap(startstring, 20), collapse = '\n')