fix test

cpsievert · cpsievert · commit 2b2615f54c21 · 2016-03-13T17:44:23.000+11:00
diff --git a/tests/testthat/test-ggplot-density2d.R b/tests/testthat/test-ggplot-density2d.R
@@ -51,7 +51,7 @@ test_that("StatDensity2d with GeomPolygon translates to filled path(s)", {
     length(unique(unlist(lapply(polygons, "[[", "fillcolor")))) > 1
   )
   # ensure the legend/guide are placed correctly
-  expect_true(L$layout$legend$y == 0.5)
+  expect_true(L$layout$legend$y < 0.5)
   expect_true(L$layout$legend$yanchor == "top")
   expect_true(colorbar$marker$colorbar$y == 1)
   expect_true(colorbar$marker$colorbar$yanchor == "top")

Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ test_that("StatDensity2d with GeomPolygon translates to filled path(s)", {`
`51`	`51`	`length(unique(unlist(lapply(polygons, "[[", "fillcolor")))) > 1`
`52`	`52`	`)`
`53`	`53`	`# ensure the legend/guide are placed correctly`
`54`		`- expect_true(L$layout$legend$y == 0.5)`
	`54`	`+ expect_true(L$layout$legend$y < 0.5)`
`55`	`55`	`expect_true(L$layout$legend$yanchor == "top")`
`56`	`56`	`expect_true(colorbar$marker$colorbar$y == 1)`
`57`	`57`	`expect_true(colorbar$marker$colorbar$yanchor == "top")`