R：all.equal的替代品？

Question

虽然all.equal是一个非常强大的工具，带有丰富的信息响应字符串，我想要一个等效的函数，它只是为了近似相等而返回TRUE / FALSE。 （我知道像identical(all.equal(foo,bar), TRUE)这样的标准技巧。我写了下面的代码片段，但是想知道我是否忽略了其中一个R软件包中的类似函数。

approxeq <- function(x,y,tolerance = .Machine$double.eps ^ 0.5,...) {
   #Note: better input validation should be written
   if (length(x) != length(y)) stop('lengths must be equal')
   checkit <- abs(x-y) < tolerance
    return(invisible(checkit))
}

approxeq和all.equal之间的主要区别在于前者为我提供了逐元素相等的测试结果。我不是说这更好，只是不同。 那么，是否有人知道在发布的包中是否存在类似（并且可能更强大）的功能？