r - 从表达式到语言对象

Question

我想使用 microbenchmark::microbenchmark()，但在我以编程方式构造的 ... 中使用字符串参数。

示例:

# classic way
microbenchmark(head(1:1e6), head(1:1e8), times = 10) # (interesting...)
# define my arguments
functionStrings <- lapply(c(6,8), function(ni) paste0("head(1:1e", ni, ")"))
# will not work
do.call(microbenchmark, lapply(functionStrings, function(vi) parse(text=vi)))

这里的问题是 microbenchmark 使用未评估的表达式，属于“语言”类，然后 deparse()。不幸的是，对普通表达式执行 deparse() 会解析表达式对象...

bla <- quote(head(1:1e6))
blou <- parse(text = "head(1:1e6)")
eval(bla) ; eval(blou) # Same thing, but....
deparse(bla)
deparse(parse(text = "head(1:1e6)"))

如何从字符串或表达式(上面 parse() 的参数或输出)到语言对象(上面 quote() 的输出)？

Answer 1

第一 block 代码最后一行的匿名函数应该是:

function(vi) parse(text=vi)[[1]]

即:

• parse 的参数名为 text 而不是 test 和
• 需要调用对象而不是表达式，因此请使用 [[1]]。