Question

我有两个函数，f和g，它们具有相同的定义：

f <- function(x) { x + 1 }
g <- function(x) { x + 1 }

但是，identical函数认为它们不同：

identical(f, g)
FALSE

我认为这是因为它们占据了记忆的不同区域; identical(f, f)给出TRUE。

我只对测试具有相同定义的函数感兴趣;我可以使用另一个功能吗？

行为应该是：

sameDefinition(f, f)
TRUE

sameDefinition(f, g)
TRUE

sameDefinition(f, function(x) { x + 1 })
TRUE

sameDefinition(f, function(x) { x + 3 }) 
FALSE 

# Equivalent, but different definitions
sameDefinition(f, function(x) { x + 2 - 1 }) 
FALSE

Answer 1

我的评论的长版本：

引用?identical doc：

另见

all.equal描述两个对象的不同之处;

在all.equal doc中有：

如果使用表达式，请不要直接使用all.equal isTRUE（all.equal（....））或相同的相同。

所以你真的不需要一个函数，你可以编写isTRUE(all.equal(f,g))并完成你的任务。

Answer 2

您可以deparse这些功能，然后检查它们是否相同：

identical(deparse(f),deparse(g))
[1] TRUE

Answer 3

根据Tensibai的建议，您可以使用all.equal功能。需要包装器，因为all.equal将在对象不相等时返回字符向量。

sameDefinition <- function(x, y) { 

    stopifnot(is.function(x), "x must be a function")
    stopifnot(is.function(y), "y must be a function")

    identical(all.equal(x, y), TRUE)
}

示例：

sameDefinition(f, g)
TRUE

sameDefinition(f, function(x) { x + 2 - 1 })
FALSE

在R中，我如何测试两个函数具有相同的定义？

3 个答案: