覆盖 R 中的函数。避免无限递归

Question

我想覆盖 R 中的某些函数，为它们添加功能或修改它们的行为。例如，我无法忍受对于 min、max、mean、sd 和其他人来说，na.rm 参数默认为 false，或者如果你在一个因子上运行 as.numeric，它不会解析级别文本而是解析级别标识符。

所以我想重写它：

as.numeric <- function(x) {
    if(is.numeric(x)) return(x)
    if (is.factor(x)) x <- as.vector(x)

    as.numeric(x)
}

不幸的是，这触发了无限递归（当然）。我该如何解决这个问题？

Answer 1

如果您在隔离名称时小心翼翼（不幸的是，R 不鼓励这样做），则没有理由反对覆盖现有名称。

在您的情况下，您所要做的就是明确限定您要调用的函数的包名称，以消除歧义：

as.numeric <- function(x) {
    if(is.numeric(x)) return(x)
    if (is.factor(x)) x <- as.vector(x)

    base::as.numeric(x)
}

也就是说，我会明智地使用它。

如果您发现自己经常隐藏现有的函数名称，您应该考虑将您的名称隔离在它们自己的命名空间中。您可以使用modules 正确执行此操作。