Fix old GDAL/PROJ error with WKT #466

r-lidar · Sep 3, 2021 · 1b3fad1 · 1b3fad1
1 parent 2c3b79f
commit 1b3fad1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/projection.R b/R/projection.R
@@ -453,7 +453,7 @@ wkt2CRS <- function(wkt, fail = FALSE)
 {
   if (!rgdal::new_proj_and_gdal())
   {
-    return(sp::CRS(NA_character_))
+    stop("WKT strings are no longer supported in lidR with old versions of GDAL/PROJ", call. = FALSE)
   }
 
   crs <- tryCatch(

diff --git a/tests/testthat/test-projection.R b/tests/testthat/test-projection.R
@@ -88,7 +88,11 @@ test_that("epsg<- works", {
 
 test_that("Set an invalid code or WKT fails", {
   expect_error({ epsg(las) <- 200800 }, "Invalid epsg")
-  expect_error({ wkt(las) <- "INVALID" }, "Invalid WKT")
+
+  if (rgdal::new_proj_and_gdal())
+    expect_error({ wkt(las) <- "INVALID" }, "Invalid WKT")
+  else
+    expect_error({ wkt(las) <- "INVALID" }, "WKT strings are no longer supported with old versions of GDAL/PROJ")
 })
 
 test_that("#323 do not segfault", {