通过使用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