使用readline选择现有变量

Question

我想让我的脚本用户选择一个现有对象（矢量）。

我觉得这样的事情

...
message("Select a vector of y values")  
nwd <- readLines(n = 1)
return(mean(nwd))
...

但结果是 NA ，因为 nwd 被视为一个字符。 我怎么解决？ 感谢。

Answer 1

比eval(parse(...))更安全：

x <- 1:10

message("Select a vector of y values")  
nwd <- readLines(n = 1)
#input x
mean(get(nwd))
#[1] 5.5