skip tests requiring suggested hexbin (#5041)

MichaelChirico · web-flow · commit 1bb20d3e0a3b · 2022-11-30T12:24:33.000+09:00
* skip tests requiring suggested hexbin

* also in geom-hex
diff --git a/tests/testthat/test-geom-hex.R b/tests/testthat/test-geom-hex.R
@@ -1,3 +1,5 @@
+skip_if_not_installed("hexbin")
+
 test_that("density and value summaries are available", {
   df <- data_frame(x = c(1, 1, 1, 2), y = c(1, 1, 1, 2))
   base <- ggplot(df, aes(x, y)) +
diff --git a/tests/testthat/test-stat-hex.R b/tests/testthat/test-stat-hex.R
@@ -1,3 +1,4 @@
+skip_if_not_installed("hexbin")
 test_that("can use length 1 binwidth", {
   df <- data_frame(x = c(1, 1, 2), y = c(1, 1, 2))
   p <- ggplot(df, aes(x, y)) + stat_binhex(binwidth = 1)

Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,5 @@`
	`1`	`+skip_if_not_installed("hexbin")`
	`2`	`+`
`1`	`3`	`test_that("density and value summaries are available", {`
`2`	`4`	`df <- data_frame(x = c(1, 1, 1, 2), y = c(1, 1, 1, 2))`
`3`	`5`	`base <- ggplot(df, aes(x, y)) +`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+skip_if_not_installed("hexbin")`
`1`	`2`	`test_that("can use length 1 binwidth", {`
`2`	`3`	`df <- data_frame(x = c(1, 1, 2), y = c(1, 1, 2))`
`3`	`4`	`p <- ggplot(df, aes(x, y)) + stat_binhex(binwidth = 1)`