如何在R语言中用向量替换文本模板占位符生成邀请函

问题描述 #

现有一个邀请函模板文本（来自.txt文件），其中以连续多个空格作为占位符，需要用给定的字符串向量按顺序替换这些占位符，生成个性化邀请函。

模板示例：

Dear   , we are happy to invite you to our annual showroom . The event starts on  at  in , . We look forward to your visit.

预期生成结果：

Dear Mr. George Clooney , we are happy to invite you to our annual showroom 2022. The event starts on 01.04 at 10.00h in Headquarter Office, Mainroad 26, 4711 Ytown.

已初始化函数框架如下，需完善实现：

createLetter <- function(fieldsdata, templateText){
    x <- c(fieldsdata)
}

解决方案 #

方案1：基础R实现（无需额外包） #

利用基础R的sub函数循环替换每个占位符，按顺序将fieldsdata中的元素填入模板：

createLetter <- function(fieldsdata, templateText){
  # 统一转换为字符型，避免类型问题
  x <- as.character(fieldsdata)
  # 遍历每个待替换内容，逐个替换模板中的连续空格占位符
  for (val in x) {
    # 匹配2个及以上连续空格，替换为当前值
    templateText <- sub("\\s{2,}", val, templateText)
  }
  # 返回最终生成的邀请函文本
  return(templateText)
}

方案2：使用gsubfn包（更简洁） #

gsubfn包支持批量按顺序替换匹配项，无需循环，代码更简洁：

# 首次使用需安装包
# install.packages("gsubfn")
library(gsubfn)

createLetter <- function(fieldsdata, templateText){
  x <- as.character(fieldsdata)
  # 匹配连续空格，按顺序取x中的元素替换所有占位符
  result <- gsubfn("\\s{2,}", ~ x[seq_along(x)], templateText)
  return(result)
}

测试示例 #

# 待替换的内容向量
fields <- c("Mr. George Clooney", "2022", "01.04", "10.00h", "Headquarter Office", "Mainroad 26, 4711 Ytown")
# 模板文本
template <- "Dear   , we are happy to invite you to our annual showroom . The event starts on  at  in , . We look forward to your visit."

# 生成邀请函
createLetter(fields, template)

运行后将输出符合预期的个性化邀请函文本。

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