Compare diffobj vs. all.equal with nested list

listcompare.R

list.A <- list(
  list(a=1, b=2, c=matrix(1:9, 3)),
  letters[1:16],
  1:100,
  head(warpbreaks, 3)
)
list.B <- list.A
list.B[[1]]$a <- list()
list.B[[1]]$c <- list.B[[1]]$c[-1, ]
list.B[[2]] <- LETTERS[1:16]
list.B[[4]] <- head(warpbreaks, 3)[-2]

all.equal(list.A, list.B)

diffPrint(list.A, list.B)