tests/testthat/test-summary_metrics.R

In lmterryn/ITSMe: Individual Tree Structural Metrics

test_that("summary basic point cloud metrics works", {
  # output is a data frame with length 8
  expect_equal(length(
    summary_basic_pointcloud_metrics(PCs_path = "../non_buttressed_trees/")),
    8) &
    # with buttress TRUE & OUT_path specified, output is a data frame with length 8
    expect_equal(length(
      summary_basic_pointcloud_metrics(PCs_path = "../buttressed_trees/",
                                       buttress = TRUE, minheight =  4,
                                       OUT_path = "../output/summary")), 8) &
    # with crown & plot TRUE, output is a data frame with length 8
    expect_equal(length(
      summary_basic_pointcloud_metrics(PCs_path = "../non_buttressed_trees/",
                                       crown = TRUE, plot = TRUE)), 8)
})

test_that("summary qsm metrics works", {
  # output is a data frame with length 24
  expect_equal(length(
    summary_qsm_metrics(QSMs_path = "../non_buttressed_trees/single_qsm/")), 26) &
  # with multiple QSMs, output is a data frame with length 3
    expect_equal(length(
      summary_qsm_metrics(QSMs_path = "../non_buttressed_trees/multiple_qsm/",
                          multiple = TRUE)), 3) &
    # with point clouds, buttress TRUE, OUT_path specified,
    # output is a data frame with length 3
    expect_equal(length(
      summary_qsm_metrics(QSMs_path = "../buttressed_trees/", buttress = TRUE,
                          PCs_path = "../buttressed_trees/",
                          OUT_path = "../output/summary")), 3)
})