Testen der Gleichheit zweier Funktionen in R

Question

Gibt es eine Möglichkeit zu bestimmen, ob der Text von zwei verschiedenen Funktionen identisch ist?

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

Ich denke, das ist eine gute Methode. Es funktioniert für viele verschiedene Objekte:

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

Answer 2

Mit diffobj Paket:

library(diffobj) 

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

diffPrint(target = x, current = y) 

es in any() Wrapping gibt WAHR/FALSCH:

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