4

我正在寻找如何检查函数中定义的参数的一般做法。我提出了这三个想法。哪一种是正确的做法？

不幸的是，第三个不起作用。替代（）在函数中的工作方式不同，我无法弄清楚如何正确使用它。

file.names <- list(
                   cov.value <- "cov.rds",
                   plot.name <- "plot.pdf"
)

test1 <- function(file.names){
  is.save <- !missing(file.names)
}

test2 <- function(file.names = NULL) {
  is.save <- !is.null(file.names)
}

test3 <- function(file.names = NULL) {
  is.save <- exists(as.character(substitute(file.names)))
}
4

2 回答 2

3

我个人认为使用默认值的第二种方法更易于使用和理解。（第三种方法真的很糟糕）

...尤其是当您编写需要向其传递参数的包装函数时。如何传递“缺失”值并不明显！

wraptest1 <- function(n) {
    file.names <- if (n > 0) sample(LETTERS, n) 
      else alist(a=)[[1]] # Hacky way of assigning 'missing'-value
    print(test1(file.names))
}
wraptest1(2) # TRUE
wraptest1(0) # FALSE

wraptest2 <- function(n) {
    file.names <- if (n > 0) sample(LETTERS, n) 
      else NULL # Much easier to read & understand
    print(test2(file.names))
}
wraptest2(2) # TRUE
wraptest2(0) # FALSE

[当然，还有其他方法可以解决传递缺失值的问题，但关键是使用默认值更容易......]

要考虑的一些默认值是NULL, NA, numeric(0),''

于 2012-05-02T16:59:26.327 回答
2

从经验丰富的程序员那里查看代码通常是一个好主意——R 本身在 R 源代码中有大量示例。

我已经看到你的第一个和第二个例子都被使用了。第一个非常地道。我个人仍然习惯性地更频繁地使用第二个。第三个我觉得太晦涩了。

于 2012-05-02T16:03:44.800 回答