all.equal.recmap : (target, current) -> {TRUE, FALSE} / if is not TRUE, then a string is returned

[cpanse]

recmap:::all.equal.recmap
function (target, current, ...)
{
     all.equal(target$x, current$x) & all.equal(target$y, current$y) &
         all.equal(target$dx, current$dx) & all.equal(target$dy,
         current$dy) & all.equal(target$z, current$z) &
all.equal(target$name,
         current$name)
}

if all.equal(target$x, current$x) is not TRUE, then a string is
returned indicating what the difference is. This precludes the
combination with & and leads to when this function is called and objects
are not equal:

Error in all.equal(target$x, current$x) & all.equal(target$y, current$y) :
operations are possible only for numeric, logical or complex types

At least the use of isTRUE() should be considered to ensure that
scalar logicals are combined with &.

thanks to Bettina Gruen

[cpanse]

all.equal.recmap <- function(target, current, ...){
  isTRUE(all.equal(target$x, current$x, ...)) &
  isTRUE(all.equal(target$y, current$y, ...)) &
  isTRUE(all.equal(target$dx, current$dx, ...)) & 
  isTRUE(all.equal(target$dy, current$dy, ...)) &
  isTRUE(all.equal(target$z, current$z, ...)) &
  isTRUE(all.equal(target$name, current$name, ...))
}

commit e98cee0