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)
})

Try the lidR package in your browser

Any scripts or data that you put into this service are public.

lidR documentation built on Sept. 11, 2024, 5:21 p.m.