如何在R中通过正则在\usage{}文本块的函数调用间插入换行符（base R方案）

原代码问题根源 #

• 替换规则无精准校验：原代码的gsub("\\)", ") \\\\n ", temp)逻辑是匹配任意位置的右括号就插入分隔符，完全没有判断该右括号是否属于两个相邻独立函数的衔接位置。原字符串里嵌套的list()对应的右括号，后面紧跟的是afunction的外层右括号，不属于需要插入分隔的场景，因此被误操作。
• 原字符串内容丢失：原代码通过regmatches将\usage{之后的内容片段从原串中提取出来单独修改，没有将修改后的内容拼回原字符串，自然丢失了\usage{、\somethingelse{}等未被提取的固定文本。

正确的base R实现 #

不需要拆分提取原串片段，直接通过带环视逻辑的正则，精准定位需要插入分隔符的位置，一步完成全局替换即可：

text <- "\\usage{afunction(arg = list())anotherfunction()}\\somethingelse{}"

# 匹配规则：定位后面紧跟英文字母（即R函数名的合法开头）的右括号，仅在该位置插入分隔符
result <- gsub("\\)(?=[a-zA-Z])", ") \\\\n ", text, perl = TRUE)

运行后输出结果与期望完全一致：

> result
[1] "\\usage{afunction(arg = list()) \\n anotherfunction()}\\somethingelse{}"

规则说明 #

• 正则中的(?=[a-zA-Z])是perl格式的正向肯定环视，作用是只匹配“后面紧跟英文字母”的右括号，不会吞掉或替换后面的函数名字符，因此可以精准避开嵌套括号中的右括号——这类右括号后面紧跟的是其他右括号、逗号、右大括号等符号，不会被命中。
• 替换逻辑直接作用于原始完整字符串，不存在片段提取后拼接丢失的问题。

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