如何将 eval 解析文本压缩成一个函数？

Question

如何将一个函数从eval(parse(text='5+5'))压缩到eval2('5+5')，以免每次都写3个字而不是1个字？

我经常使用这种结构，我需要压缩它。

UPD：使情况复杂化，因为将 eval 打包到函数中不起作用，例如，对于 data.table。在这种情况下，我希望 eval(parse(text=)) 变成 eval()：

dt <- data.table(a = c(1, 1, 1, 1), foo_col = c('a', 'b', 'X', 'asd'))
            
cur_col <- 'foo_col2'
            
dt[, eval(parse(text=glue::glue('{cur_col} := c(3, 3, 3, 3)')))]

Answer 1

只需围绕这些 eval 和 parse 编写一个包装函数

eval2 <- function(txt) {
  eval(parse(text = txt))
}

eval2('5 + 5')
#> [1] 10

eval(parse(text = '5 + 5'))
#> [1] 10

^{由reprex package (v2.0.1) 于 2022-07-07 创建}