如何根据用户输入修改R函数体并去除自动添加的引号？

我完全懂你遇到的困扰——直接把字符串形式的表达式替换到函数体里，结果R把它当成了普通字符串，自动加上了引号，导致函数执行时不是计算表达式而是赋值字符串，这肯定不是你想要的效果。

问题的核心在于：你需要把字符串解析成R可以识别的表达式对象，而不是直接把字符串塞进去。下面是具体的解决步骤：

1. 将字符串转为表达式对象 #

你可以用两种方式把用户输入的字符串转换成表达式：

方式一：使用base R的parse()函数 #

userinput_str <- "b.w[1]*X.w[i,1]^exp(b.w[2]*X.w[i,2])"
# 解析字符串为单个表达式
userinput_expr <- parse(text = userinput_str)[[1]]

方式二：使用rlang包的parse_expr()（更简洁） #

如果你习惯用tidyverse工具链，rlang的这个函数更直观：

library(rlang)
userinput_expr <- parse_expr(userinput_str)

2. 用表达式替换函数体对应位置 #

现在你可以直接用这个表达式对象去替换原来的位置，而不是用字符串：

# 原函数
modelstring <- function() { for (h in (l1i1[j]):(l1i2[j])) { w[h] <- 1/l1n[h] } }

# 替换赋值右侧的表达式
body(modelstring)[[2]][[4]][[2]][[3]] <- userinput_expr

3. 验证结果 #

现在查看函数体，就不会有引号了：

modelstring
# 输出：
# function () { for (h in (l1i1[j]):(l1i2[j])) { w[h] <- b.w[1] * X.w[i, 1]^exp(b.w[2] * X.w[i, 2]) } }

为什么之前的方法没用？ #

• noquote()只是改变字符串的打印方式，本质还是字符串对象，所以替换后依然会被当成字符串常量。
• expr(!!userinput)如果userinput是字符串，!!只是把字符串内容插入到表达式中，结果还是一个字符常量表达式，自然带引号。
• 必须通过解析把字符串转换成表达式对象，R才会把它当成可执行的代码片段处理。

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