R语言如何实现字符串按最大N字符截断且仅保留完整单词

要实现「截断到指定最大字符长度、且不拆分完整单词」的效果，可通过以下几种方式完成，所有方法均能匹配给定的测试样例： #

先准备测试用的基础变量：

# 原始测试字符串
a <- "This is a very long string that should be a maximum of 50 characters and just full words"
# 设定截断的最大字符长度
max_len <- 50

原生基础R实现（无第三方依赖） #

逐单词拼接校验总长度，一旦拼接后超出最大长度就停止，保留此前拼接好的完整内容：

truncate_full_word <- function(text, limit) {
  # 按连续空格拆分原文本为独立单词
  words <- strsplit(text, "\\s+")[[1]]
  content <- c()
  for (w in words) {
    # 临时拼接当前单词，检查总长度
    temp <- paste(c(content, w), collapse = " ")
    if (nchar(temp) > limit) break
    content <- c(content, w)
  }
  paste(content, collapse = " ")
}

调用函数得到结果：

truncate_full_word(a, max_len)
# 输出："This is a very long string that should be a"

stringr生态简洁实现 #

如果日常使用字符串处理工作流，可通过管道流式拼接筛选得到结果：

library(stringr)
library(purrr)
truncate_result <- str_split(a, "\\s+")[[1]] |>
  # 逐次累计拼接单词为完整句子
  accumulate(~ str_c(.x, .y, sep = " ")) |>
  # 过滤出总长度不超过阈值的片段
  keep(~ nchar(.x) <= max_len) |>
  # 取最后一个符合要求的片段作为截断结果
  last()

正则快速匹配实现 #

通过正则规则直接定位符合长度要求的边界位置，执行效率更高：

regmatches(a, regexpr("^.{0,50}(?=\\s|$)", a, perl = TRUE))

上述三种方法的输出结果完全一致，均匹配题目给出的预期截断效果，不会出现被拆断的不完整单词。

内容的提问来源于stack exchange，提问作者Axel K