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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.