두 기능의 동일성 테스트 R

Question

두 개의 다른 기능이 동일한 지 확인하는 방법이 있습니까? any()에 포장

library(diffobj) 

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

diffPrint(target = x, current = y) 

가 FALSE/TRUE 줄 것이다 :

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

diffobj 패키지 사용

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