在 R 中由用户在终端中定义函数的参数

Question

我有一个函数，只有一个参数

define <- function(x) {...}

现在我想使用readline函数让用户在终端中定义这个参数我尝试了以下代码，但它不起作用:

data <- define(readline(prompt = "Please enter Code: "))

Answer 1

定义了一个简单的函数:

define <- function(x) {
y = as.numeric(x) + 1
return(y)
}

当您要求用户设置一个值(例如3)时，输出如下所示:

data <- define(readline(prompt = "Please enter Code: "))
data
Please enter Code: 3
> data
[1] 4

如您所见，代码完成了它的工作。

为您编辑评论:

你可以添加一个menu给用户一个这样的选择:

define <- function(x) {
choice <- menu(c("Tc","Tr","Ty","Mn"))
return(choice)
}
data <- define(readline(prompt = "Please enter corresponding number: "))

它看起来像这样:

> data <- define(readline(prompt = "Please enter corresponding number: "))
1: Tc
2: Tr
3: Ty
4: Mn
Selection: Tc
> data
[1] 1

Answer 2

define <- function(x) {
data <- define(readline(prompt = "Please enter Code: "))
data <- as.numeric(unlist(strsplit(data, ",")))
return(data)
}

你会问是这样的吗?