inst/tinytest/test-readheader.R

lazfile <- system.file("extdata", "example.las", package = "rlas")
header <- read.lasheader(lazfile)

# "read.lasheader read the header", {

expect_equal(header[["Point Data Format ID"]], 1L)
expect_equal(header[["Number of point records"]], 30L)
expect_equal(header[["Number of points by return"]], c(26, 4, 0, 0, 0))
expect_equal(header[["System Identifier"]], "LAStools (c) by rapidlasso GmbH")

Try the rlas package in your browser

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

rlas documentation built on March 31, 2023, 5:29 p.m.