tests/testthat/test-workflow_beta.R

In BioTIMEr: Tools to Use and Explore the 'BioTIME' Database

test_that("Whole workflow works consistently", {
  skip_on_ci()

  meta <- base::readRDS(testthat::test_path("testdata", "data-meta.rds"))
  btf <- base::readRDS(testthat::test_path("testdata", "data-query.rds"))

  # Beta diversity metrics
  expect_snapshot({
    set.seed(42)
    gridding(meta, btf) %>%
      resampling(measure = "ABUNDANCE", resamps = 1L) %>%
      getBetaMetrics(measure = "ABUNDANCE") %>%
      getLinearRegressions(divType = "beta")
  })

  expect_snapshot({
    set.seed(42)
    gridding(meta, btf) %>%
      resampling(measure = "BIOMASS", resamps = 1L) %>%
      getBetaMetrics(measure = "BIOMASS") %>%
      getLinearRegressions(divType = "beta")
  })

})