Adds GDAL min version requirement for writing .shz

R/tar-terra-vect.R

@@ -162,9 +162,7 @@ create_format_terra_vect_shz <- function() {
 
     check_pkg_installed("terra")
     #difficult to test
-    if (terra::gdal(lib = "gdal") < "3.1") {
-        rlang::abort("Writing a .shz file requires GDAL version 3.1 or greater")
-    }
+    check_gdal_shz(min_version = "3.1")
 
     targets::tar_format(
         read = function(path) terra::vect(paste0("/vsizip/{", path, "}")),

R/utils.R

@@ -15,6 +15,26 @@ check_pkg_installed <- function(pkg, call = rlang::caller_env()) {
   }
 }
 
+check_gdal_version <- function(min_version = "3.1") {
+    terra_gdal <- numeric_version(terra::gdal(lib = "gdal"))
+    version <- numeric_version(min_version)
+    terra_gdal < min_version
+}
+
+check_gdal_shz <- function(min_version = "3.1",
+                           call = rlang::caller_env()){
+    if (check_gdal_version(min_version)) {
+        cli::cli_abort(
+            message = c(
+                "Must have {.pkg GDAL} version {.val {min_version}} or greater",
+                "i" = "To write a {.val .shz} file requires GDAL version \\
+        {.val {min_version}} or greater"
+            ),
+            call = call
+        )
+    }
+}
+
 get_gdal_available_driver_list <- function(driver_type) {
     # get list of drivers available for writing depending on what the user's GDAL supports
     drv <- terra::gdal(drivers = TRUE)

tests/testthat/_snaps/check-gdal-shz.md

@@ -0,0 +1,9 @@
+# GDAL version checked checked
+
+    Code
+      check_gdal_shz()
+    Condition
+      Error:
+      ! Must have GDAL version "3.1" or greater
+      i To write a ".shz" file requires GDAL version "3.1" or greater
+

tests/testthat/test-check-gdal-shz.R

@@ -0,0 +1,9 @@
+test_that("GDAL version checked checked", {
+    local_mocked_bindings(
+        check_gdal_version = function(...) TRUE
+    )
+    expect_snapshot(
+        error = TRUE,
+        check_gdal_shz()
+    )
+})