提取所有'；整个'；R中nchars的某个点之前的字符元素？

有一个我认为应该直截了当的问题，可能是我对grep（）家族缺乏了解

给定一组字符：

list <- c("the", "quick", "brown", "fox", "jumps", "over", "the", "lazy", "dog")

---

list我们使用
cumsum
创建一个逻辑索引来对单词进行子集划分

f1 <- function(vec, n) {
    vec[cumsum(nchar(vec)) < n]
  }

f1(list, 10)
#[1] "the"   "quick"

f1(list, 15)
#[1] "the"   "quick" "brown"

f1将在时间限制完成后立即接受-响应速度惊人！当我引起你们的注意时，我能问一下你们在R工作了多久吗？@Reputureblemisnomer可能从2006年开始（作为一个新手）。但是，不要太多的考虑一开始的最初时间，因为我第一次从C++开始之前，总是很有趣地获得R /编码旅程的视角-我才开始在2016的冬天-兴奋的余下的旅程，并希望达到你的水平！再次为答案干杯！（对评论中的长时间讨论表示歉意）@ReputombleMisnomer当然，你肯定能达到任何水平。练习、耐心、阅读等是关键。在短短几年内，我在SO中见过许多人，他们都是优秀的程序员，我发现很难与他们竞争：=）