tests/testthat/test_evaluate_field_stems.R

In weecology/NeonTreeEvaluation_package: Evaluate Individual Tree Segmentation Algorithms against Benchmark Data

library(dplyr)
context("evaluate_field_stems")
test_that("Check wrapper of unprojected submission against field stems produces predictions ", {
  result<-submission %>% filter(plot_name == "JERC_049_2018") %>%
    evaluate_field_stems(.,project=T, show=F, summarize = T)
  expect_equal(length(result),3)
  })

test_that("Check csv and shp submission produce same result", {
  result_csv<-submission %>% filter(plot_name == "JERC_049_2018") %>%
    evaluate_field_stems(.,project=T, show=F, summarize = T)

  result_shp<-submission_polygons %>% select(-xmin,-xmax,-ymin,-ymax) %>% filter(plot_name == "JERC_049_2018") %>%
    evaluate_field_stems(.,project=T, show=F, summarize = T)
  expect_equal(result_csv[["overall"]], result_shp[["overall"]])
})

test_that("evaluate_field_stems raise error on mismatch", {
  df<- submission %>% filter(plot_name == "TEAK_055_2018")
  expect_error(evaluate_field_stems(df,project=T))
})