hadley/ggplot2 — comment on commit a958384341f7bffdb1e2817f9ea6f4b9f3057e88
File:  line 0
By kohske:

Then, can you use `.Machine$double.eps`?
e.g.,

```R
zero_range <- function (x) {
if (length(x) == 1) return(TRUE)
if (abs(diff(range(x))) < 2 * .Machine$double.eps) return(TRUE)
}
```

In `zero_range`, `x <- x/mean(x)` will make confusion.
I think this test is irrelevant to the (mean) absolute value of `x`.