tests/testthat/test-progress.R

In Jean-Romain/lidR: Airborne LiDAR Data Manipulation and Visualization for Forestry Applications

context("progress bar")

test_that("progress bar work at C++ level", {
  sink(tempfile())
  las = lidR:::generate_las(500)
  options(lidR.progress = TRUE)
  options(lidR.progress.delay = 0)
  expect_error(smooth_height(las, 3), NA)
  options(lidR.progress = FALSE)
  options(lidR.progress.delay = 2)
  sink(NULL)
})