add some basic tests for hex/map

Author: cpsievert

tests/testthat/test-ggplot-hex.R

@@ -0,0 +1,22 @@
+context("hex")
+
+d <- ggplot(diamonds, aes(carat, price))
+
+test_that("geom_hex", {
+  g <- d + geom_hex()
+  l <- save_outputs(g, "hex-basic")
+  expect_true(length(l$data) > 1)
+})
+
+
+test_that("geom_hex with bins", {
+  g <- d + geom_hex(bins = 10)
+  l <- save_outputs(g, "hex-bins")
+  expect_true(length(l$data) > 1)
+})
+
+test_that("geom_hex with binwidth", {
+  g <- d + geom_hex(binwidth = c(1, 1000))
+  l <- save_outputs(g, "hex-binwidth")
+  expect_true(length(l$data) > 1)
+})

tests/testthat/test-ggplot-map.R

@@ -0,0 +1,16 @@
+context("maps")
+
+crimes <- data.frame(state = tolower(rownames(USArrests)), USArrests)
+crimesm <- tidyr::gather(crimes, variable, value, -state)
+states_map <- map_data("state")
+g <- ggplot(crimesm, aes(map_id = state)) +
+  geom_map(aes(fill = value), map = states_map) +
+  expand_limits(x = states_map$long, y = states_map$lat) +
+  facet_wrap( ~ variable)
+
+
+test_that("basic geom_map works",  {
+  l <- save_outputs(g, "map-facet")
+  expect_true(length(l$data) > 1)
+})
+