Fix vctrs optional tests (#268)

r-spatial · Jan 21, 2025 · 0f39cf6 · 0f39cf6
1 parent d23497a
commit 0f39cf6
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-plot.R b/tests/testthat/test-plot.R
@@ -1,5 +1,7 @@
 
 test_that("s2_plot works", {
+  skip_if_not_installed("vctrs")
+
   x <- s2_data_countries()
   expect_identical(s2_plot(x), x)
   s2_plot(s2_data_cities(), add = TRUE)
@@ -10,6 +12,8 @@ test_that("s2_plot works", {
 })
 
 test_that("s2_plot works for all examples", {
+  skip_if_not_installed("vctrs")
+
   for (name in names(s2_data_example_wkt)) {
     geog <- as_s2_geography(s2_data_example_wkt[[name]])
 
@@ -22,6 +26,8 @@ test_that("s2_plot works for all examples", {
 })
 
 test_that("plot() works for vector classes", {
+  skip_if_not_installed("vctrs")
+
   x <- as_s2_geography("POINT (0 1)")
   expect_identical(plot(x), x)
 

diff --git a/tests/testthat/test-vctrs.R b/tests/testthat/test-vctrs.R
@@ -1,5 +1,7 @@
 
 test_that("s2_geography is a vctr", {
+  skip_if_not_installed("vctrs")
+
   x <- new_s2_geography(list(NULL))
   expect_true(vctrs::vec_is(x))
   expect_identical(vctrs::vec_data(x), list(NULL))
@@ -8,6 +10,8 @@ test_that("s2_geography is a vctr", {
 })
 
 test_that("s2_cell is a vctr", {
+  skip_if_not_installed("vctrs")
+
   x <- new_s2_cell(NA_real_)
   expect_true(vctrs::vec_is(x))
   expect_identical(vctrs::vec_data(x), NA_real_)
@@ -16,6 +20,8 @@ test_that("s2_cell is a vctr", {
 })
 
 test_that("s2_cell_union is a vctr", {
+  skip_if_not_installed("vctrs")
+
   x <- new_s2_cell_union(list(NULL))
   expect_true(vctrs::vec_is(x))
   expect_identical(vctrs::vec_data(x), list(NULL))