无需转为字符串，封装任意R代码块为可调用对象的方法问询

你可以通过R的**非标准求值（NSE）**特性，创建自定义函数来包裹代码块，既保留IDE的语法高亮、代码检查能力，又能实现两种输出需求，完全替代eval(parse())的字符串方案。

1. 仅返回代码输出的函数 #

这个函数会直接执行传入的代码块，并返回执行结果：

get_output <- function(.code) {
  # 捕获传入的代码表达式，在当前环境执行
  eval(enexpr(.code), envir = parent.frame())
}

# 用法示例
get_output({
  x <- 2
  y <- 3
  # 这里的代码会被IDE正常高亮、检查
  x * y + 1
})
# 输出：7

2. 返回代码本身+输出的函数 #

这个函数会同时捕获代码表达式（转为字符串）和执行结果，返回包含两者的列表：

get_code_and_output <- function(.code) {
  # 捕获原始代码表达式
  code_expr <- enexpr(.code)
  # 把表达式转为可读的字符串
  code_str <- deparse(code_expr)
  # 执行代码并获取输出
  output <- eval(code_expr, envir = parent.frame())
  
  # 返回包含代码和输出的列表
  list(
    code = paste(code_str, collapse = "\n"),
    output = output
  )
}

# 用法示例
result <- get_code_and_output({
  df <- data.frame(a = 1:3, b = 4:6)
  mean(df$a)
})

# 查看代码
cat(result$code, "\n")
# 查看输出
result$output

为什么这个方案比eval(parse())好？ #

• 代码块内的代码是标准R语法，IDE能正常识别并提供语法高亮、代码检查、自动补全；
• 调试时可以直接在代码块内添加断点，不需要处理字符串内的代码；
• 避免了parse()带来的字符串转表达式的额外开销和潜在语法错误。

可选：模拟foo{}的语法（进阶） #

如果一定要用类似foo{}的无括号调用方式，可以定义一个中缀函数：

`%run%` <- function(dummy, .code) {
  eval(enexpr(.code), envir = parent.frame())
}

# 用法示例
%run% {
  print("Hello World")
}

不过这种写法不符合R的常规编码习惯，更推荐前面的函数调用方式。

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