提供函数调用的match.call

Question

我想捕获所有参数和值并返回一个命名列表。 我遇到的情况是提供的值是函数调用。

下面产生了一个“ call”类的对象，这对我来说不方便，因为我想在其上调用paste ：

fun1 = function(a = 1) as.list(match.call()[-1])
value1 = fun1(a = letters[1:2])
class(value1[[1]])
[1] "call"
paste(value1[[1]], collapse = " - ")
[1] "[ - letters - 1:2" #not useful to me

作为一种解决方法，我可以调用eval获取由c创建的字符向量（lapply函数用于说明当有多个参数时，将对所有参数调用eval ）：

fun2 = function(a = 1) lapply(as.list(match.call()[-1]), eval)
value2 = fun2(a = letters[1:2])
class(value2[[1]])
[1] "character"
paste(value2[[1]], collapse = " - ")
[1] "a - b" #that's what I want

有一个更好的方法吗？ 对一堆东西调用eval只是为了获取值对我来说有点奇怪。

编辑：这背后的想法是，我想将参数列表传递给原始函数内的函数（该函数接受其中一个参数的命名列表）。 我想捕获用户提供的值和默认值（用于用户未提供任何内容的参数）。

我在其他地方学到，可以将match.call和formals结合使用来获得所有这些。 但是然后，说我需要将其传递给httr::GET函数的query参数，并在此之前对其进行一些处理（例如在“ a”和“ b”之间添加“-”）。 然后，我得到类似“ [-字母-1：2”而不是“ a-b”的内容。

我感觉如果答案使用eval ，那么我可能会问错问题。

Answer 1

我感觉到您正在寻找更通用的东西，因此不确定这是否完全是您要寻找的东西，但它更简单并且可以为您提供所需的结果。 关键是do.call（）

fun1 = function(a = 1) {
  L1 <- as.list(match.call())
  do.call(paste0, list(L1$a, sep="", collapse=" - "))
}

value1 = fun1(a = letters[1:2])

Answer 2

好吧，我认为您需要确定代码的哪些部分需要评估，哪些不需要。
从您的示例中还不能完全清楚您想要的通用性，但是您可以通过一个简单的list（）解决您的example-question问题，您只需要一个自定义函数即可提供默认值：

myfun <- function(a=1) list(a=a)
value <- myfun(a=letters[1:2]))
paste(value[[1]], collapse = " - ")
# Basically: value <- list(a=letters[1:2])), or paste(letters[1:2], collapse= " - ")

通常，您使用不带任何参数的match.call（）来找出调用函数的方式。 有时了解是否调用了fun（a = c（'a'，'b'））或fun1（a =字母[1：2]）很有用，所以match.call会告诉您这一点，而不进行任何评估。

因此，如果您想对参数进行实际操作，只需直接调用它们，以后便可以将其传递给另一个函数

mypaste <- function(..., sep=' -CustomSep- ', collapse=' -Mycollapse- ', prefix='Value:') {
  if(length(list(...))>0) {
    paste(prefix, ..., sep=sep, collapse=collapse)
  } else {
    text <- character(0)
  }
}

此功能只是粘贴的一种变体，但是您可以根据需要对其进行扩展。

而且，我得到的印象是，您需要一个一般情况，即您将参数与另一个函数的参数进行匹配，但是要回答该问题，我需要更多地了解您到底想完成什么。