Question

我有一个外部指定的带有类字符的对象：

X = "c(Arg1 = 'First', Arg2 = 'Second', Arg3 = 'Third')"

我想直接插入R中的函数，就像 foo（X）

以下是我要完成的示例：

Inputs <- eval(parse(text = X))

Msg_Foo <- function(Arg1, Arg2, Arg3) {
    message(paste(Arg1, Arg2, Arg3, sep = "\n"))
 }

Msg_Foo(
    Arg1 = Inputs["Arg1"], 
    Arg2 = Inputs["Arg2"],
    Arg3 = Inputs["Arg3"]
    )

但是理想情况下，我想要一个只需要以下解决方案：

Msg_Foo(Inputs)

这很重要，因为我想在函数中指定一个椭圆（...），这样来自X的参数就可以直接传递给函数，而无需上面的示例中的显式指定。

Answer 1

在R中评估/解析字符串通常不是一个好主意，除非您100％确信它们是安全的。

但是您可以使用do.call()动态将参数传递给函数。例如

# X = "c(Arg1 = 'First', Arg2 = 'Second', Arg3 = 'Third')"
# Inputs <- eval(parse(text = X))

Msg_Foo <- function(x) {
  message(do.call("paste", c(as.list(x), sep="\n")))
}    
Msg_Foo(Inputs)

您的输入是一个命名的字符向量。我们需要将其转换为与do.call一起使用的命名列表，然后可以将其传递给粘贴功能。然后我们将结果正常传递给message()函数

eval将字符解析为函数调用r

1 个答案: