如何编写结合glue包将空格替换为换行符的自定义函数？

以下是几种高效的实现方式，无需手动添加\n：

1. 直接结合gsub与glue #

先通过gsub()替换空格为换行符，再传入glue()渲染：

library(glue)
txt <- "hello world hello world"
glue(gsub(" ", "\n", txt))

2. 封装为自定义函数 #

如果需要重复使用，可以封装成专用函数：

library(glue)
glue_with_newlines <- function(text) {
  glue(gsub(" ", "\n", text))
}

# 调用示例
glue_with_newlines("hello world hello world")

3. 处理动态模板内容 #

如果你的文本包含glue变量，同样可以先完成模板拼接后再替换：

library(glue)
word1 <- "hello"
word2 <- "world"
glue(gsub(" ", "\n", "{word1} {word2} {word1} {word2}"))

核心逻辑是利用gsub()批量替换空格为\n，再交由glue()完成字符串渲染，兼顾glue的模板能力和批量替换的高效性。

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