2つの関数の等価性のテストR

Question

2つの異なる関数のテキストが同一であるかどうかを判断する方法はありますか？ diffobjパッケージ使用

x <- function(x) print(x + 2) 
y <- function(x) print(x + 2) 
identical(x, y) 
[1] FALSE 
identical(mget("x"), mget("y")) 
[1] FALSE 
identical(unname(mget("x")), unname(mget("y"))) 
[1] FALSE 

Answer 1

私はこれは良い方法だと思います。

all.equal(x,y) 
[1] TRUE 

Answer 2

：any()でそれをラップ

library(diffobj) 

x <- function(x) print(x + 2) 
y <- function(x) print(x + 2) 

diffPrint(target = x, current = y) 

はFALSE/TRUE与える：

any(diffPrint(target = x, current = y)) 
# FALSE