Disable sf tests

Part of #2684

Author: lionel-

tests/testthat/test-coord_sf.R

@@ -7,5 +7,10 @@ test_that("multiplication works", {
   plot <- ggplot(nc) +
     geom_sf() +
     coord_sf()
+
+  # Perform minimal test as long as vdiffr test is disabled
+  expect_error(regexp = NA, ggplot_build(plot))
+
+  skip("sf tests are currently unstable")
   expect_doppelganger("sf-polygons", plot)
 })

tests/testthat/test-geom-sf.R

@@ -10,6 +10,18 @@ test_that("geom_sf draws correctly", {
   f <- system.file("gpkg/nc.gpkg", package="sf")
   nc <- sf::read_sf(f)
 
+
+  # Perform minimal tests as long as vdiffr tests are disabled
+  plot <- ggplot() + geom_sf(data = nc)
+  expect_error(regexp = NA, ggplot_build(plot))
+
+  pts <- sf::st_sf(a = 1:2, geometry = sf::st_sfc(sf::st_point(0:1), sf::st_point(1:2)))
+  plot <- ggplot() + geom_sf(data = pts)
+  expect_error(regexp = NA, ggplot_build(plot))
+
+
+  skip("sf tests are currently unstable")
+
   expect_doppelganger("North Carolina county boundaries",
     ggplot() + geom_sf(data = nc) + coord_sf(datum = 4326)
   )