waldo

The goal of waldo is to find and concisely describe the difference between a pair of R objects, with the primary goal of making it easier to figure out what’s gone wrong in your unit tests.

waldo::compare() is inspired by all.equal(), but takes additional care to generate actionable insights by:

Ordering the differences from most important to least important.
Displaying the values of atomic vectors that are actually different.
Carefully using colour to emphasise changes (while still being readable when colour isn’t available).
Using R code (not a text description) to show where differences arise.
Where possible, comparing elements by name, rather than by position.
Erring on the side of producing too much output, rather than too little.

Installation

You can install the released version of waldo from CRAN with:

install.packages("waldo")

Comparisons

library(waldo)

When comparing atomic vectors, compare() produces diffs (thanks to diffobj) that highlight additions, deletions, and changes, along with a little context:

Deletion
```
compare(c("a", "b", "c"), c("a", "b"))
```
Addition
```
compare(c("a", "b"), c("a", "b", "c"))
```

Change

compare(c("a", "b", "c"), c("a", "B", "c"))

Long vectors with short differences only show local context around changes, not everything that’s the same.
```
compare(c("X", letters), c(letters, "X"))
```

Depending on the relative size of the differences and the width of your console you’ll get one of three displays:

The default display is to show the vectors one atop the other:
```
compare(letters[1:5], letters[1:6])
```
If there’s not enough room for that, the two vectors are shown side-by-side:
```
options(width = 20)
compare(letters[1:5], letters[1:6])
```
And if there’s still not enough room for side-by-side, the each element is given its own line:
```
options(width = 10)
compare(letters[1:5], letters[1:6])
```

When comparing more complex objects, waldo creates an executable code path telling you where the differences lie:

Unnamed lists are compared by position:
```
compare(list(factor("x")), list(1L))
```
Named lists, including data frames, are compared by name. For example, note that the following comparison reports a difference in the class and names, but not the values of the columns.
```
df1 <- data.frame(x = 1:3, y = 3:1)
df2 <- tibble::tibble(rev(df1))
compare(df1, df2)
```

Recursion can be arbitrarily deep:

x <- list(a = list(b = list(c = list(structure(1, e = 1)))))
y <- list(a = list(b = list(c = list(structure(1, e = "a")))))
compare(x, y)