在定义中使用省略号时，如何在R函数调用中捕获错误或未定义的参数

Question

我与承认一个问题所困扰，但对此我还没有找到一个简单的解决方案：如何捕捉通过传递到R的功能和错误指定参数，当函数定义包括省略号或三个点... 。

正如Wickham的高级R所述 ：

使用...是有代价的 - 任何拼写错误的参数都不会引发错误，并且...之后的任何参数都必须完全命名。 这使得拼写错误很容易被忽视。

这是一个例子：

myfun <- function(x, ...) 
    UseMethod("myfun")

myfun.character <- function(x, toLower = FALSE, ...)
    cat("Sent and transformed by myfun:", ifelse(toLower, tolower(x), x), "\n")

myfun("Test String with CaPiTaLs.")
## Sent and transformed by myfun: Test String with CaPiTaLs.
myfun("Test String with CaPiTaLs.", toLower = TRUE)
## Sent and transformed by myfun: test string with capitals. 
myfun("Test String with CaPiTaLs.", tolower = TRUE)
## Sent and transformed by myfun: Test String with CaPiTaLs.
myfun("Test String with CaPiTaLs.", toLower = TRUE, notDefined = 1)
## Sent and transformed by myfun: test string with capitals. 

在这里， toLower的微妙拼写错误导致没有可见的错误，除非输出的失败是小写的，正如用户可能期望的那样。 在最后一个例子中，用户认为可以起作用的参数不是，但由于...的性质，它们只是消失在以太中。

当然，我可以检查的内容...通过list(...)但我想知道是否有更好的方式，挂在功能或那些其定义的形参...传递。

顺便说一下，有谁知道我们应该叫什么... ？ 我几乎可以肯定我在Julia文档中看到了一个带有名字的引用，但现在找不到了！

添加：

理想情况下，如果参数不是应该在省略号中传递的，当被调用函数范围内的某些内容通过省略号传递给辅助参数时，我想找出生成错误的最佳方法。 例如，如何最好地捕获这些错误：

myfun2 <- function(x, ...) 
    UseMethod("my fun")

myfun2.character <- function(x, toLower = FALSE, ...)
    cat("Sent and transformed by myfun:", ifelse(toLower, tolower(x), x), "\n", ...)

myfun2("Test String with CaPiTaLs.", tolower = TRUE)
## Sent and transformed by myfun: Test String with CaPiTaLs. 
##  TRUE
myfun2("Test String with CaPiTaLs.", toLower = TRUE, notDefined = 1)
## Sent and transformed by myfun: test string with capitals. 
##  1
myfun2("Test String with CaPiTaLs.", sep = "\tXX\t")
## Sent and transformed by myfun:   XX  Test String with CaPiTaLs.  XX  

Answer 1

我不会返回错误。 警告应该足够了。 像这样的东西：

myfun2.character <- function(x, toLower = FALSE, ...) {
  elli <- names(list(...))
  check <- elli %in% names(formals(cat))
  if (any(!check)) warning(sprintf("%s is not an expected parameter. Did you misstype it?", 
                                   paste(elli[!check], collapse = ", ")))
  cat("Sent and transformed by myfun:", ifelse(toLower, tolower(x), x), "\n", ...)
}


myfun2("Test String with CaPiTaLs.", tolower = TRUE)
#Sent and transformed by myfun: Test String with CaPiTaLs. 
#TRUE
#Warning message:
#  In myfun2.character("Test String with CaPiTaLs.", tolower = TRUE) :
#  tolower is not an expected parameter. Did you misstype it?
myfun2("Test String with CaPiTaLs.", toLower = TRUE, notDefined = 1)
#Sent and transformed by myfun: test string with capitals. 
#1
#Warning message:
#  In myfun2.character("Test String with CaPiTaLs.", toLower = TRUE,  :
#                        notDefined is not an expected parameter. Did you misstype it?
myfun2("Test String with CaPiTaLs.", sep = "\tXX\t")
## Sent and transformed by myfun:   XX  Test String with CaPiTaLs.  XX

我不认为最后一个应该警告。 你应该避免位置参数匹配，如果你在那里使用名称匹配，你会得到一个错误，你需要捕获。