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)
})
Jean-Romain/lidR documentation built on May 8, 2024, 3:02 a.m.