inst/tinytest/test_worldtilegrid.R

In hrbrmstr/worldtilegrid: A ggplot2 Geom for World Tile Grids

require(ggplot2, quietly = TRUE)
require(worldtilegrid, quietly = TRUE)

set.seed(1)

data.frame(
  ctry = worldtilegrid::wtg$alpha.3[1:2],
  val = sample(1000, length(worldtilegrid::wtg$alpha.3[1:2])),
  stringsAsFactors = FALSE
) -> xdf

ggplot(xdf, aes(country = ctry, fill = val)) +
  geom_wtg() +
  geom_text(aes(label = stat(alpha.2)), stat="wtg", size=2) + # re-compute the stat to label
  coord_equal() +
  scale_fill_viridis_c(direction = -1) +
  labs(title = "World Tile Grid") +
  theme_minimal() +
  theme_enhance_wtg() -> gg

suppressMessages(gb <- ggplot_build(gg))

expect_equal(length(gb$data), 2)
expect_identical(dim(gb$data[[1]]), c(192L, 26L))
expect_identical(dim(gb$data[[2]]), c(192L, 24L))
expect_identical(gb$data[[1]]$group, gb$data[[2]]$group)