tests/testthat/test-get_random_bags.R

test_that("testing get_random_bags ... expecting one pixel per tree crown", {
  setwd("../..")
  random_bags <- get_random_bags()
  dims <- dim(random_bags)[1]
  expect_gte(dims, 1)
})
MarconiS/hiPyRneon documentation built on Jan. 20, 2021, 11:38 p.m.