tests/testthat/test-las_update.R

las <- random_10_points

test_that("header bbox is updated", {
  Zm <- las[["Max Z"]]
  las@header@PHB[["Max Z"]] <- 5
  las <- las_update(las)

  expect_equal(las[["Max Z"]], Zm)
})
r-lidar/lidR documentation built on Feb. 7, 2025, 8:57 p.m.