R语言中如何为已有函数对象的函数体新增代码行而非替换原有内容

该操作完全可实现，仅依靠基础R的语言对象操作逻辑即可完成，不需要额外依赖包。
R 的函数体本质是带位置索引的语言元素集合，除了直接定位替换元素的操作，完全支持列表式的元素插入逻辑，操作规则和普通列表的增删改完全一致。

函数体结构的前置认知 #

以示例中的原始myfun为例，通过body(myfun)可查看到函数体的内部索引对应关系：

# 原始函数定义
myfun <- function(x,y) {
  result <- list(x+y,x*y)
  return(result)
}

# 各索引对应的内容
body(myfun)[[1]] # 函数体大括号本身的定义
body(myfun)[[2]] # 原第一行业务代码：result <- list(x+y,x*y)
body(myfun)[[3]] # 原第二行业务代码：return(result)

新增代码行的操作逻辑 #

要实现插入而非替换，核心步骤是在目标插入位置先腾出空位：将插入点及之后的原有元素整体向后移动一个索引位置，再将准备好的新代码表达式填入空出的索引位即可，不需要复杂的eval/parse/bquote组合流程。
以需要在函数体最开头插入print(x)行为例，完整可直接运行的操作代码如下：

# 1. 准备需要新增的代码表达式，用quote获取非执行态的代码对象
new_code_line <- quote(print(x))

# 2. 给新行腾出位置：将原索引2、3位置的代码，整体移动到索引3、4的位置
body(myfun)[3:4] <- body(myfun)[2:3]

# 3. 将空出的索引2位置，赋值为准备好的新代码行
body(myfun)[[2]] <- new_code_line

操作完成后直接查看函数定义，即可得到预期的函数效果：

myfun
# function(x, y) 
# {
#     print(x)
#     result <- list(x + y, x * y)
#     return(result)
# }

通用插入规则 #

• 若要在函数体最末尾追加新行，直接给body(myfun)[[length(body(myfun)) + 1]]赋值对应的代码表达式即可，不需要额外挪位。
• 若要在函数体的任意两个原有代码行之间插入新行，套用相同逻辑：把插入索引及之后的所有原有元素整体后移一位，再填入新的代码表达式。
• 常见操作误区：跳过挪位步骤、直接给目标索引赋值新代码，会直接覆盖原有位置的代码，变成替换操作而非插入，最终效果和直接修改原有行内容的逻辑没有区别，无法达到新增代码行的目的。

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