We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 0e91034 commit fb40491Copy full SHA for fb40491
tests/testthat/test-ggplot-histogram.R
@@ -34,7 +34,7 @@ test_that("geom_histogram(aes(y = ..density..)) displays a density", {
34
area <- sum(tr$y) * bw
35
# the "area" of the plot (should be 1).
36
# note this also serves as a check for the default binwidth
37
- expect_equal(area, 1, 0.1)
+ expect_equal(area, 1, tolerance = 0.1)
38
})
39
40
test_that("geom_histogram(aes(fill = ..count..)) works", {
0 commit comments