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

第一个代码块的最后一行中的匿名函数应为：

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

那是：

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

从表达式到语言对象

1 个答案: