tests/testthat/test-coord-map.R

In duthedd/ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics

context("coord_map")

test_that("USA state map drawn", {
  us_map <- map_data("usa")
  p_us <- ggplot(us_map, aes(x = long, y = lat, group = group))

  vdiffr::expect_doppelganger(
    "USA mercator",
    p_us +
      geom_polygon(fill = NA, colour = "grey50") +
      coord_map("mercator")
  )
})