R：将逗号分隔的字符串评估为表达式

Question

我有一个逗号分隔的字符串，我想将它作为逗号分隔的表达式插入到函数中。具体来说，有各种函数将... 作为参数，我希望有一种方法可以将逗号分隔的字符串转换为逗号分隔的参数列表，这些参数可以“注入”到... 中的参数中函数调用。我尝试使用parse 和eval，正如on this page 所暗示的那样，但我仍然无法让我的功能正常工作。

下面是我正在尝试做的一个可重现的示例。

这很好用

a <- 1
b <- 2
sum(a, b)

如果a 和b 被编码在一个字符串中，我无法让它们在sum 函数中进行评估

这失败了，因为myString 属于字符类，并且该函数尝试按原样评估它，而不是将其解析为组件a 和b。

myString <- 'a, b'
sum(myString)

尝试使用parse 和eval 也失败了

这些给出关于意外逗号的错误。

sum(parse(text = myString))
sum(eval(parse(text = mystring)))

输出：

Error in parse(text = myString) : <text>:1:2: unexpected ','
1: a,
     ^

我必须在 myString 上使用什么函数或一组函数 (fxn) 才能正确评估 sum？

我想要的解决方案将采用以下格式，其中 fxn 是必须在myString 上使用sum 函数之前的函数：

# Acceptable solution format
sum(fxn(myString))

# Alternatively by piping
myString %>%
    fxn %>%
    sum

更新：

如果myString 中编码的值不止两个，则解决方案必须具有足够的泛化性以处理。例如，如果满足以下条件，解决方案也必须有效：

c <- 3
d <- 4
e <- 5
myString2 <- 'c, d, e'

# This:
sum(fxn(myString2))

# Must yield `12`

此外，结果应该具有足够的泛化性，可以适用于将... 作为参数的各种函数，而不仅仅是sum。为简单起见，我选择了sum 作为示例。然而，下面是另一个期望行为的例子：

f <- 6
g <- 7
myString3 <- 'f, g'

# This:
prod(fxn(myString3))

# Must yield `42`

Answer 1

我认为解决方案是使用strsplit，然后通过sapply()获取()每个值。

a <- 1
b <- 2
c <- 3
d <- 4
myString <- 'a, b, c, d'

fxn <- function(myString) 
{
  values <- unlist(strsplit(myString, split = ", "))
  sapply(values, function(x){get(x)})
}
sum(fxn(myString))

[1] 10