tests/testthat/test-veg_aggregate.R

In vegtable: Handling Vegetation Data Sets

context("aggregating information into data frames")

test_that("veg_aggregate is working", {
  veg <- cover_trans(x = Kenya_veg, to = "cover")
  veg$ALTITUDE[is.na(veg$ALTITUDE)] <- 0
  expect_is(
    veg_aggregate(cover ~ AcceptedName + REFERENCE, veg, mean),
    "data.frame"
  )
  expect_is(
    veg_aggregate(cover ~ TaxonName + REFERENCE, veg, mean),
    "data.frame"
  )
  expect_is(
    veg_aggregate(REFERENCE ~ AcceptedName, veg, length),
    "data.frame"
  )
  expect_is(
    veg_aggregate(cover ~ lf_behn_2018 + ReleveID, veg, mean),
    "data.frame"
  )
  expect_is(
    veg_aggregate(ALTITUDE ~ COMM_TYPE, veg, mean),
    "data.frame"
  )
  expect_error(veg_aggregate(
    cover ~ AcceptedName + TaxonName + ReleveID,
    veg, mean
  ))
})