tests/testthat/test_write.R

In Gitmaxwell/lastools: Tools for reading/writing and maniplulating Canadian Well Logging Society (CWLS) Format V1.2 or 2.0 LAS Files as R Objects

library(lastools)


#-----------------------------------------------------------------------------
# LAS v1.2 tests
#-----------------------------------------------------------------------------
test_that("test write v1.2 sample.las", {
  las_file <- "sample.las"
  test_path <- system.file("extdata", "1.2", las_file, package = "lastools")
  las <- read_las(test_path)
  write_las(las, "new_file.las")
  newlas <- read_las("new_file.las")
  expect_equal(las$WELL$VALUE[12], newlas$WELL$VALUE[12])
  unlink("new_file.las")
})