use terra::ext to get lidar extent

Pakillo · Mar 25, 2024 · 3dd3566 · 3dd3566
1 parent 958ec55
commit 3dd3566
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -17,7 +17,7 @@ License: AGPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 LazyData: true
-RoxygenNote: 7.2.1
+RoxygenNote: 7.3.1
 Imports: 
     class,
     gdistance,

diff --git a/man/CityShadeMapper-package.Rd b/man/CityShadeMapper-package.Rd
diff --git a/tests/testthat/test-read_lidar.R b/tests/testthat/test-read_lidar.R
@@ -2,13 +2,13 @@ test_that("read_lidar works", {
 
   lidar <- read_lidar(system.file("extdata", "PlazaNueva.laz",
                        package = "CityShadeMapper", mustWork = TRUE))
-  lidar.ext <- lidR::extent(lidar)
+  lidar.ext <- terra::ext(lidar)
 
   expect_true(inherits(lidar, "LAScatalog"))
-  expect_equal(lidar.ext@xmin, 234700)
-  expect_equal(round(lidar.ext@xmax), 234880)
-  expect_equal(lidar.ext@ymin, 4142100)
-  expect_equal(lidar.ext@ymax, 4142250)
+  expect_equal(terra::xmin(lidar.ext), 234700)
+  expect_equal(round(terra::xmax(lidar.ext)), 234880)
+  expect_equal(terra::ymin(lidar.ext), 4142100)
+  expect_equal(terra::ymax(lidar.ext), 4142250)
   expect_equal(lidR::st_crs(lidar)$input, "EPSG:3042")
 
 })