tests/testthat/test-coord_sf.R

context("coord_sf")

test_that("multiplication works", {
  skip_if_not_installed("sf")

  nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
  plot <- ggplot(nc) +
    geom_sf() +
    coord_sf()
  vdiffr::expect_doppelganger("sf-polygons", plot)
})
hadley/ggplot2 documentation built on Feb. 14, 2018, 5:22 a.m.