Question

我确信这很简单，但我找不到解决方案...... 我想使用包含字符串的变量作为函数的参数。

x <- c(1:10)
myoptions <- "trim=0, na.rm=FALSE"

现在，像

foo <- mean(x, myoptions)

应与

相同

foo <- mean(x, trim=0, na.rm=FALSE)

提前致谢！

Answer 1

您可以使用eval和parse：

foo <- eval(parse(text = paste("mean(x,", myoptions, ")")))

Answer 2

执行所需操作的更自然的方法是使用do.call。例如，

R> l[["trim"]] = 0
R> l[["na.rm"]] = FALSE
R> l[["x"]] = 1:10
##Or l <- list(trim = 0, na.rm = FALSE, x = 1:10)
R> do.call(mean, l)
 [1] 5.5

如果由于某种原因您确实想要使用myoptions字符串，则可以始终使用strsplit将其整合到列表表单中。例如，

R> y = "trim=0, na.rm=FALSE"
R> strsplit(y, ", ")
[[1]]
[1] "trim=0"      "na.rm=FALSE" 
R> strsplit(y, ", ")[[1]][1]
[1] "trim=0"

Answer 3

以下是使用parse，alist和do.call的第三个答案。我对这个新答案的动机是，参数是从客户端以交互方式传递给chars的。然后我想，没有好办法不使用parse。使用strsplit建议的解决方案无法理解逗号,是否表示参数中的下一个参数或下一个参数的上下文。 strsplit不理解上下文，因为strsplit不是解析器。

此处参数可以作为"a=c(2,4), b=3,5"或list("c(a=(2,4)","b=3","5")

传递

#' convert and evaluate a list of char args to a list of arguments
#'
#' @param listOfCharArgs a list of chars 
#'
#' @return
#' @export
#'
#' @examples
#' myCharArgs = list('x=c(1:3,NA)',"trim=0","TRUE")
#' myArgs = callMeMaybe(myCharArgs)
#' do.call(mean,myArgs)
callMeMaybe2 = function(listOfCharArgs) {
  CharArgs = unlist(listOfCharArgs)
  if(is.null(CharArgs)) return(alist())
    .out = eval(parse(text = paste0("alist(",
      paste(parse(text=CharArgs),collapse = ","),")")))
}

myCharArgs = list('x=c(1:3,NA)',"trim=0","TRUE")
myArgs = callMeMaybe2(myCharArgs)
do.call(mean,myArgs)
 [1] 2

Answer 4

使用do.call，eval和parse的全部（结合kohske和csgillespie的答案以及WoDoSc's answer to 'Pass a comma separated string as a list'）：

x <- c(1:10)
myoptions <- "trim = 0, na.rm = FALSE"

do.call(
  what = mean,
  args = append(list(x = x), eval(parse(text = paste0("list(", myoptions, ")"))))
)

这种解决方案在更复杂的情况下可能具有相当的弹性，如下所示。

myfn <- function(x, y = 0, z = 0, ...) {
  print(paste("x:", x))
  print(paste("y:", y))
  print(paste("z:", z))
  if (length(list(...)) > 0) {
    print("other:")
    print(list(...))
  }
}

myextraargs <- paste(
  "y = c(11, 14), z = 47,",
  "t = data.frame(p = c('apple', 'plum'), j = c(7, 2), k = c(3, 21))"
)

do.call(
  what = myfn,
  args = append(
    list(x = 7),
    eval(parse(text = paste0("list(", myextraargs, ")")))
  )
)

导致：

[1] "x: 7"
[1] "y: 11" "y: 14"
[1] "z: 47"
[1] "other:"
$t
      p j  k
1 apple 7  3
2  plum 2 21

...和...

myextraargs <- NULL

do.call(
  what = myfn,
  args = append(
    list(x = 7),
    eval(parse(text = paste0("list(", myextraargs, ")")))
  )
)

产生

[1] "x: 7"
[1] "y: 0"
[1] "z: 0"

使用字符串作为函数参数

4 个答案: