tests/testthat/test-veg_relation.R

In vegtable: Handling Vegetation Data Sets

context("retrieve and write relations")

test_that("veg_relation is working", {
  expect_is(
    veg_relation(Kenya_veg, "REFERENCE", match_header = TRUE),
    "data.frame"
  )
  expect_is(
    veg_relation(Kenya_veg, "REFERENCE"),
    "data.frame"
  )
})

test_that("replacement for veg_relation is working", {
  veg <- Kenya_veg
  categories <- c("forest", "grassland", "cropland")
  # Insert data frame with categories as character
  veg_relation(veg) <- data.frame(
    land_use = categories,
    description = c("bla", "blabla", "blablabla")
  )
  expect_true("land_use" %in% names(veg@relations))
  # Insert data frame with categories as factor
  veg_relation(veg) <- data.frame(
    land_use2 = as.factor(categories),
    description = c("bla", "blabla", "blablabla")
  )
  expect_true("land_use2" %in% names(veg@relations))
  # Insert data frame with existing header
  # TODO: Next is not working
  ## veg$land_use3 <- sample(categories, nrow(veg@header), replace = TRUE)
  ## veg_relation(veg) <- data.frame(
  ##     land_use3 = categories,
  ##     description = c("bla", "blabla", "blablabla"))
  ## expect_true("land_use3" %in% names(veg@relations))
})