tests/testthat/test-guessColumnNames.R

In aqp: Algorithms for Quantitative Pedology

context("SoilProfileCollection attribute guessing functions")

## sample data
data(sp3, package = 'aqp')
depths(sp3) <- id ~ top + bottom

## tests
test_that("basic functionality", {

  # historic horizon designation name (e.g. used by plotSPC)
  expect_warning(expect_equal(guessHzDesgnName(sp3), "name"))

  # basic attribute name guessing
  expect_message(expect_equal(guessHzAttrName(sp3, "clay", ""), "clay"),
                "guessing horizon attribute 'clay' is stored in `clay`")

  # more complex attribute name guessing
  sp3$clay_r <- sp3$clay
  sp3$claytotal_r <- sp3$clay

  expect_message(expect_equal(guessHzAttrName(sp3, "clay", ""), "clay"),
                 "guessing horizon attribute 'clay' is stored in `clay`")

  expect_message(expect_equal(guessHzAttrName(sp3, "clay", c("_r", "total")), "claytotal_r"),
                 "guessing horizon attribute 'clay' is stored in `claytotal_r`")

  # basic attribute name guessing
  expect_warning(expect_equal(guessHzTexClName(sp3), ""))

  # texcl
  horizons(sp3)$texcl <- "l"
  expect_warning(expect_equal(guessHzTexClName(sp3), "texcl"))

  # texture
  sp3$texture <-  sp3$texcl
  sp3$texcl <- NULL
  expect_warning(expect_equal(guessHzTexClName(sp3), "texture"))

  # descriptive name
  sp3$hzdesgn <- sp3$name
  sp3$name <- NULL
  sp3$desgn <- 1:nrow(sp3)
  expect_warning(expect_equal(guessHzDesgnName(sp3), "hzdesgn"))

  # unable to guess name
  sp3$foo <- sp3$hzdesgn
  sp3$hzdesgn <- NULL
  sp3$desgn <- NULL
  expect_warning(expect_equal(guessHzDesgnName(sp3), NA))

  # custom name
  hzdesgnname(sp3) <- "foo"
  expect_warning(expect_equal(guessHzDesgnName(sp3), "foo"))
})