如何用r中的序列替换来替换可变数量的占位符？

# 创建包含占位符的字符串
template <- "Hello, {name}. Today is {day}."
data <- list(name = c("Alice", "Bob"), day = c("Monday", "Tuesday"))

# 定义替换函数
replace_placeholder <- function(template, data) {
  # 循环处理每个占位符
  for (key in names(data)) {
    # 生成替换值
    values <- data[[key]]
    # 将替换值转换为字符型
    values <- as.character(values)
    # 替换占位符
    template <- gsub(paste0("\\{", key, "\\}"), values, template)
  }
  
  return(template)
}

# 调用替换函数
result <- replace_placeholder(template, data)
print(result)