如何移除R中经parse()和eval()处理后函数的环境信息？

方法1：重置函数的环境为基础环境 #

通过eval(parse())生成的函数会绑定当前执行环境，控制台打印时会显示该环境信息。将函数环境设置为R的基础环境（baseenv()），即可消除环境提示：

# 初始函数字符串
final_str <- "function (x) -115.2278 + 0.6304 * x + 5e-04 * x^2 + 0 * x^3 + 0 * x^4 + 0 * x^5"
# 解析并生成函数
my_fun <- eval(parse(text = final_str))
# 重置函数环境
environment(my_fun) <- baseenv()
# 存入列表
result_list <- list(Polynomial = my_fun)
# 打印输出
print(result_list)

执行后控制台只会显示函数定义，不会出现<environment: ...>的提示。

方法2：转为字符串存储（无需函数可执行性） #

如果仅需显示函数文本形式，不需要调用函数，可以将解析后的函数转为字符串存入列表：

final_str <- "function (x) -115.2278 + 0.6304 * x + 5e-04 * x^2 + 0 * x^3 + 0 * x^4 + 0 * x^5"
# 解析后转为字符串并合并换行部分
my_fun_str <- paste(deparse(eval(parse(text = final_str))), collapse = " ")
result_list <- list(Polynomial = my_fun_str)
print(result_list)

这种方式输出的是纯函数文本，无任何环境相关信息。

方法3：自定义列表打印逻辑 #

若要保留函数可执行性，同时自定义打印内容，可以为列表设置专属打印函数：

final_str <- "function (x) -115.2278 + 0.6304 * x + 5e-04 * x^2 + 0 * x^3 + 0 * x^4 + 0 * x^5"
my_fun <- eval(parse(text = final_str))
result_list <- list(Polynomial = my_fun)

# 自定义打印函数
print.my_list <- function(x) {
  cat("$Polynomial\n")
  cat(deparse(x$Polynomial), "\n")
}

# 指定列表类并打印
class(result_list) <- "my_list"
print(result_list)

打印时只会输出你需要的函数定义内容。

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